--- a/Parser.st	Wed Jan 14 19:37:45 2009 +0100
+++ b/Parser.st	Wed Jan 14 21:52:20 2009 +0100
@@ -6582,7 +6582,7 @@
                                     ]
                                 ] ifFalse:[
                                     "/ reference to a private class
-                                    nameSpaceGlobal ~~ classToCompileFor ifTrue:[
+                                    nameSpaceGlobal ~~ classToCompileFor theNonMetaclass ifTrue:[
                                         self classToCompileFor notNil ifTrue:[
                                             self isDoIt ifFalse:[
                                                 parserFlags warnAboutReferenceToPrivateClass ifTrue:[
@@ -9482,7 +9482,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.588 2009-01-14 18:37:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.589 2009-01-14 20:52:20 cg Exp $'
 ! !
 
 Parser initialize!