diff --git a/rtl/objpas/classes/parser.inc b/rtl/objpas/classes/parser.inc
index 0671456d0c..29e5e3a9fc 100644
--- a/rtl/objpas/classes/parser.inc
+++ b/rtl/objpas/classes/parser.inc
@@ -361,8 +361,16 @@ begin
 end;
 
 destructor TParser.Destroy;
+
+Var
+  aCount : Integer;
+
 begin
-  fStream.Position:=SourcePos;
+  if fToken=toWString then
+    aCount:=Length(fLastTokenWStr)*2
+  else
+    aCount:=Length(fLastTokenStr);
+  fStream.Position:=SourcePos-aCount;
   FreeMem(fBuf);
 end;