--- a/Class.st	Tue Jan 28 16:06:27 2020 +0100
+++ b/Class.st	Wed Jan 29 00:34:36 2020 +0100
@@ -1457,21 +1457,24 @@
     myNamePrefixLen := myNamePrefix size.
 
     Smalltalk keysDo:[:nm |
-	|cls|
-
-	(nm startsWith:myNamePrefix) ifTrue:[
-	    (allOfThem
-	    or:[(nm indexOf:$: startingAt:myNamePrefixLen + 1) == 0]) ifTrue:[
-		cls := Smalltalk at:nm.
-
-		(cls isBehavior and:[cls isMeta not]) ifTrue:[
-		    classes isNil ifTrue:[
-			classes := Set new:10.
-		    ].
-		    classes add:cls.
-		]
-	    ]
-	]
+        |cls|
+
+        (nm startsWith:myNamePrefix) ifTrue:[
+            (allOfThem
+            or:[(nm indexOf:$: startingAt:myNamePrefixLen + 1) == 0]) ifTrue:[
+                cls := Smalltalk at:nm.
+
+                (cls isBehavior and:[cls isMeta not]) ifTrue:[
+                    "/ ouch, must check for aliases
+                    cls name = nm ifTrue:[
+                        classes isNil ifTrue:[
+                            classes := Set new:10.
+                        ].
+                        classes add:cls.
+                    ]
+                ]
+            ]
+        ]
     ].
 
     ^ classes ? #()