--- a/Parser.st	Tue Feb 29 19:10:48 2000 +0100
+++ b/Parser.st	Fri Mar 24 17:43:43 2000 +0100
@@ -4150,7 +4150,7 @@
                             warnedUnknownNamespaces add:nameSpace.
                         ]
                     ] ifFalse:[
-                        nameSpaceGlobal isNamespace ifTrue:[
+                        nameSpaceGlobal isNameSpace ifTrue:[
                             "/ for now: only Smalltalk is allowed
                             nameSpaceGlobal ~~ Smalltalk ifTrue:[
 "/                                self parseError:('(currently) the only valid nameSpace is `Smalltalk''') position:pos to:tokenPosition-1.
@@ -5429,6 +5429,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.241 2000-02-29 18:10:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.242 2000-03-24 16:43:43 cg Exp $'
 ! !
 Parser initialize!