--- a/Parser.st	Fri Feb 15 14:54:31 2019 +0100
+++ b/Parser.st	Fri Feb 15 16:30:20 2019 +0100
@@ -8552,6 +8552,16 @@
     ] ifFalse:[
         tokenType == #String ifTrue:[
             self markStringFrom:pos to:source position.
+            source isInternalByteStream ifTrue:[
+                source contents isString ifTrue:[
+                    (source contents at:pos) ~~ $' ifTrue:[
+                        "/ an expanded special string;
+                        "/ remember the original, in case we want to rewrite the code.
+                        "/ (or prettyPrint)
+                        val originalString:(source copyFrom:pos to:source position). 
+                    ].
+                ].    
+            ].    
         ] ifFalse:[
             self markConstantFrom:pos to:source position.
         ].
@@ -8565,6 +8575,7 @@
 
     "Modified: / 21-08-2011 / 08:10:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 26-07-2012 / 11:37:44 / cg"
+    "Modified (format): / 15-02-2019 / 16:05:29 / Claus Gittinger"
 !
 
 primary_squeakComputedArray