--- a/Explainer.st	Fri Mar 31 19:51:07 2006 +0200
+++ b/Explainer.st	Mon Apr 03 09:38:50 2006 +0200
@@ -349,8 +349,8 @@
                         ^ Array with:globalValue class.    
                     ].
                 ].
-                (cls nameSpace notNil and:[cls nameSpace ~~ Smalltalk]) ifTrue:[
-                    globalValue := cls nameSpace at:nm asSymbol.
+                (cls topNameSpace notNil and:[cls topNameSpace ~~ Smalltalk]) ifTrue:[
+                    globalValue := cls topNameSpace at:nm asSymbol.
                     globalValue isClass ifTrue:[
                         ^ Array with:globalValue class.    
                     ].
@@ -1158,5 +1158,5 @@
 !Explainer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.67 2006-03-31 17:51:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.68 2006-04-03 07:38:50 cg Exp $'
 ! !