# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1561859194 -7200
# Node ID 4e682b3abdae52cdc84517cde827b07dd10bbf27
# Parent  da91ed5bc7fa3b8298b090133efe863bacd9127b
#BUGFIX by cg
class: Explainer class
changed: #explainGlobalOrPoolVariable:inClass:short:

diff -r da91ed5bc7fa -r 4e682b3abdae Explainer.st
--- 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