--- a/Explainer.st	Fri Jun 28 09:12:19 2019 +0200
+++ b/Explainer.st	Sun Jun 30 03:46:34 2019 +0200
@@ -1069,8 +1069,13 @@
     
     "a pool variable?"
     aClassOrNil notNil ifTrue:[
-        aClassOrNil theNonMetaclass sharedPoolNames do:[:eachPoolName |
-            pool := aClassOrNil theNonMetaclass nameSpace at:eachPoolName.
+        |nonMeta|
+
+        nonMeta := aClassOrNil theNonMetaclass.
+        nonMeta sharedPoolNames do:[:eachPoolName |
+            pool := nonMeta nameSpace isNameSpace
+                    ifTrue:[nonMeta nameSpace at:eachPoolName]
+                    ifFalse:[nonMeta topNameSpace at:eachPoolName].
             pool isNil ifTrue:[
                 pool := Smalltalk at:eachPoolName.
             ].    
@@ -1168,7 +1173,7 @@
 
     "Created: / 14-10-2010 / 11:33:04 / cg"
     "Modified: / 16-11-2016 / 13:08:07 / cg"
-    "Modified: / 08-06-2019 / 14:03:42 / Claus Gittinger"
+    "Modified: / 30-06-2019 / 03:46:10 / Claus Gittinger"
 !
 
 explainHereIn:aClassOrNil short:shortText