diff --git a/comp/src/gb.eval.highlight/.src/TextHighlighter_Sh.class b/comp/src/gb.eval.highlight/.src/TextHighlighter_Sh.class
index f86a8c58c..0a5318c6e 100644
--- a/comp/src/gb.eval.highlight/.src/TextHighlighter_Sh.class
+++ b/comp/src/gb.eval.highlight/.src/TextHighlighter_Sh.class
@@ -246,8 +246,8 @@ Public Sub RunWith(sText As String, cKeyword As Collection, cOperator As Collect
           TextHighlighter.Add(State.Escape, 2)
           Inc iPos
           Else
-          TextHighlighter.Add(State.Escape, 1)
-          If sCar = "\"" Then Inc ipos
+          TextHighlighter.Add(State.Escape, 2)
+          If sCar = "\"" Or If sCar = "'" Then Inc ipos
           Endif
           'Inc iPos
           Continue