--- a/Parser.st	Thu Jan 11 19:39:56 2001 +0100
+++ b/Parser.st	Fri Jan 12 16:34:04 2001 +0100
@@ -5197,8 +5197,10 @@
 
         (ns notNil
         and:[ns ~~ Smalltalk]) ifTrue:[
-            (ns at:aVariableName) notNil ifTrue:[
-                ^ ns
+            ns isNameSpace ifTrue:[
+                (ns at:aVariableName) notNil ifTrue:[
+                    ^ ns
+                ]
             ]
         ].
 
@@ -5752,6 +5754,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.277 2001-01-11 11:17:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.278 2001-01-12 15:34:04 cg Exp $'
 ! !
 Parser initialize!