--- a/Parser.st	Tue May 20 12:04:06 2003 +0200
+++ b/Parser.st	Fri May 30 12:39:52 2003 +0200
@@ -3479,7 +3479,7 @@
             "/ actually, its a block, to allow
             "/ easy return ...
 
-            sReal := 'doIt ^[\' withCRs , s , '\] value' withCRs.
+            sReal := 'doIt ^[ ' , s , '\] value' withCRs.
 
             compiler := ByteCodeCompiler new.
             compiler initializeFlagsFrom:self.
@@ -3499,7 +3499,7 @@
                      fake: patch the source string, to what the user expects
                      in the browser
                     "
-                    method source:'       \' withCRs , s string.
+                    method source:"'        ' , "s string.
                     "
                      dont do any just-in-time compilation on it.
                     "
@@ -7379,7 +7379,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.392 2003-05-20 10:04:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.393 2003-05-30 10:39:52 cg Exp $'
 ! !
 
 Parser initialize!