--- a/Parser.st	Fri Aug 11 14:44:54 2000 +0200
+++ b/Parser.st	Tue Aug 15 16:21:20 2000 +0200
@@ -3736,6 +3736,9 @@
         ^ val
     ].
     (tokenType == #Symbol) ifTrue:[
+        parseForCode ifFalse:[
+            self rememberSymbolUsed:tokenValue.
+        ].
         ^ tokenValue
     ].
     (tokenType == #EOF) ifTrue:[
@@ -5533,6 +5536,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.252 2000-08-11 12:44:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.253 2000-08-15 14:21:20 cg Exp $'
 ! !
 Parser initialize!