diff --git a/src/ce_d2syn.pas b/src/ce_d2syn.pas
index 27cb83e9..bc1cd569 100644
--- a/src/ce_d2syn.pas
+++ b/src/ce_d2syn.pas
@@ -709,7 +709,7 @@ begin
     fTokKind := tkStrng;
     while true do
     begin
-      if reader[0..1] = '\'#39 then
+      if reader^ = '\' then
       begin
         readerNext;
         readerNext;