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