--- a/DoWhatIMeanSupport.st	Wed Mar 13 10:30:41 2019 +0100
+++ b/DoWhatIMeanSupport.st	Mon Mar 18 11:32:31 2019 +0100
@@ -2051,6 +2051,7 @@
     nodeReceiver notNil ifTrue:[
         classesOfReceiver := self classesOfNode:nodeReceiver.
     ].
+    "/ Verbose := true
     Verbose == true ifTrue:[
         Transcript show:node; show:' -> '; showCR:classesOfReceiver.
         ( node isVariable and:[node name = 'self']) ifTrue:[self breakPoint:#cg].
@@ -2768,6 +2769,7 @@
     "Modified: / 16-02-2010 / 10:33:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 30-09-2017 / 14:12:47 / cg"
     "Modified: / 01-03-2019 / 14:52:35 / Claus Gittinger"
+    "Modified (comment): / 18-03-2019 / 11:22:48 / Claus Gittinger"
 !
 
 codeCompletionForMessageTo:node into:actionBlock
@@ -6269,12 +6271,18 @@
             exprVal notNil ifTrue:[
                 setOfPossibleClasses add:(exprVal class).
             ].
+            topNameSpace ~~ Smalltalk ifTrue:[
+                exprVal := Smalltalk at:sym.
+                exprVal notNil ifTrue:[
+                    setOfPossibleClasses add:(exprVal class).
+                ].
+            ].
         ].        
     ].    
     ^ setOfPossibleClasses
 
     "Created: / 13-06-2018 / 10:17:42 / Claus Gittinger"
-    "Modified (comment): / 13-06-2018 / 12:41:28 / Claus Gittinger"
+    "Modified: / 18-03-2019 / 11:28:39 / Claus Gittinger"
 !
 
 classOfNode:aNode