--- a/ResourceRetriever.st	Thu Feb 26 20:01:29 2004 +0100
+++ b/ResourceRetriever.st	Thu Feb 26 21:04:19 2004 +0100
@@ -245,7 +245,7 @@
     ] ifFalse:[
         ns := aResourceContainer class nameSpace.
         ns ~~ Smalltalk ifTrue:[
-            ns isNamespace ifTrue:[
+            ns isNameSpace ifTrue:[
                 cls := ns at:className asSymbol.
             ] ifFalse:[
                 cls := ns privateClassesAt:className asSymbol.
@@ -255,10 +255,6 @@
             ]
         ].
     ]
-
-
-
-
 !
 
 resource
@@ -358,5 +354,5 @@
 !ResourceRetriever class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ResourceRetriever.st,v 1.8 2004-02-26 19:01:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ResourceRetriever.st,v 1.9 2004-02-26 20:04:19 cg Exp $'
 ! !