--- a/DoWhatIMeanSupport.st	Tue Apr 02 11:32:15 2013 +0200
+++ b/DoWhatIMeanSupport.st	Thu Apr 04 11:35:41 2013 +0200
@@ -1729,17 +1729,9 @@
 
     |matches best lcName|
 
-    matches := IdentitySet new.
-
-    "/ search for exact match
-    anEnvironment allClassesDo:[:aClass |
-        |package|
+    matches := Smalltalk allProjectIDs
+        select:[:package | package startsWith:aPartialPackage].
 
-        package := aClass package.
-        (package notNil and:[package startsWith:aPartialPackage]) ifTrue:[
-            matches add:package
-        ]
-    ].
     matches isEmpty ifTrue:[
         "/ search for case-ignoring match
         lcName := aPartialPackage asLowercase.
@@ -2291,6 +2283,6 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.97 2013-04-02 09:32:15 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.98 2013-04-04 09:35:41 cg Exp $'
 ! !