--- a/Parser.st	Tue Apr 24 21:32:56 2018 +0200
+++ b/Parser.st	Thu Apr 26 15:29:38 2018 +0200
@@ -831,7 +831,7 @@
         (forCompletion and:[sym = aString or:[sym argumentCount < minNumArgs]]) ifFalse:[
             lcSym := sym asLowercase.
             (selectorsAlready includes:sym) ifFalse:[
-            "/ (info contains:[:i | i key == sym]) ifFalse:[
+                "/ (info contains:[:i | i key == sym]) ifFalse:[
 
                 forCompletion ifTrue:[
                     "/ OLD: similarity := 100 * (1 + (lcSelector size / lcSym size)).
@@ -904,10 +904,10 @@
             cls methodDictionary keysAndValuesDo:block.
             "/ cls class methodDictionary keysAndValuesDo:block.
         ].
-"/        loadedClass withAllSubclassesDo:[:cls |
-"/            cls methodDictionary keysAndValuesDo:block.
-"/            "/ cls class methodDictionary keysAndValuesDo:block.
-"/        ].
+        aClassOrNil withAllSubclassesDo:[:cls |
+            cls methodDictionary keysAndValuesDo:block.
+            "/ cls class methodDictionary keysAndValuesDo:block.
+        ].
     ].
 
     ^ info collect:[:a | a key] as:OrderedCollection.