--- a/Parser.st	Mon Mar 31 19:31:43 2003 +0200
+++ b/Parser.st	Tue Apr 01 16:22:50 2003 +0200
@@ -5559,10 +5559,12 @@
                         nameSpaceGlobal isBehavior ifFalse:[
                             self parseError:('invalid nameSpace: ' , nameSpace)  position:pos1 to:tokenPosition-1.
                         ] ifTrue:[
-                            (nameSpaceGlobal privateClassesAt:varName asSymbol) isNil ifTrue:[
-                                self warning:('no private class: ' , varName , ' in class: ' , nameSpace) 
-                                     position:pos1 to:tokenPosition-1.
-"/                                    self parseError:('no private class: ' , name , ' in class: ' , nameSpace)  position:pos to:tokenPosition-1.                                
+                            nameSpaceGlobal isLoaded ifTrue:[
+                                (nameSpaceGlobal privateClassesAt:varName asSymbol) isNil ifTrue:[
+                                    self warning:('no private class: ' , varName , ' in class: ' , nameSpace) 
+                                         position:pos1 to:tokenPosition-1.
+"/                                        self parseError:('no private class: ' , name , ' in class: ' , nameSpace)  position:pos to:tokenPosition-1.                                
+                                ]
                             ]
                         ]
                     ].
@@ -7061,7 +7063,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.374 2003-03-28 14:55:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.375 2003-04-01 14:22:20 cg Exp $'
 ! !
 
 Parser initialize!