--- a/Parser.st	Thu Jun 19 00:47:49 2003 +0200
+++ b/Parser.st	Thu Jun 19 00:55:19 2003 +0200
@@ -5992,7 +5992,7 @@
 "/            ].
 "/        ].
     ].
-    nm := elements asStringWith:'::'.
+    nm := (elements asStringWith:'::') asSymbol.
     ^ ConstantNode type:#Symbol value:nm
 
 "/    elements size > 1 ifTrue:[
@@ -7422,7 +7422,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.398 2003-06-18 22:47:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.399 2003-06-18 22:55:19 cg Exp $'
 ! !
 
 Parser initialize!