--- a/Parser.st	Wed May 15 13:38:25 2002 +0200
+++ b/Parser.st	Thu May 16 20:09:32 2002 +0200
@@ -4978,6 +4978,9 @@
     val := expr evaluate.
 
     val isLiteral ifTrue:[
+        val isString ifTrue:[
+            ^ ConstantNode type:#String value:val
+        ].
         val isByteArray ifTrue:[
             ^ ConstantNode type:#ByteArray value:val
         ].
@@ -6548,6 +6551,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.331 2002-05-15 11:38:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.332 2002-05-16 18:09:32 cg Exp $'
 ! !
 Parser initialize!