--- a/Parser.st	Wed Mar 29 00:03:25 2000 +0200
+++ b/Parser.st	Wed Mar 29 21:17:54 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libcomp' }"
+
 Scanner subclass:#Parser
 	instanceVariableNames:'classToCompileFor selfValue contextToEvaluateIn selector
 		methodArgs methodArgNames methodVars methodVarNames tree
@@ -4999,8 +5001,14 @@
     currentSpace := self currentNameSpace.
     (currentSpace notNil
     and:[currentSpace ~~ Smalltalk]) ifTrue:[
-        (currentSpace at:aVariableName) notNil ifTrue:[
-            ^ currentSpace
+        currentSpace isNameSpace ifTrue:[
+            (currentSpace at:aVariableName) notNil ifTrue:[
+                ^ currentSpace
+            ]
+        ] ifFalse:[
+            (currentSpace privateClassesAt:aVariableName) notNil ifTrue:[
+                ^ currentSpace
+            ]
         ]
     ].
 
@@ -5441,6 +5449,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.244 2000-03-28 22:03:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.245 2000-03-29 19:17:54 cg Exp $'
 ! !
 Parser initialize!