--- a/SystemBrowser.st	Wed Aug 09 21:50:31 2006 +0200
+++ b/SystemBrowser.st	Thu Aug 10 13:14:20 2006 +0200
@@ -5118,13 +5118,7 @@
 
     enterBox := EnterBox title:(self classResources stringWithCRs:'Browse which class:').
     enterBox okText:(resources string:'Browse').
-    enterBox entryCompletionBlock:[:contents |
-        |s what m|
-
-        s := contents withoutSpaces.
-        what := Smalltalk classnameCompletion:s.
-        enterBox contents:what first.
-    ].
+    enterBox entryCompletionBlock:(DoWhatIMeanSupport classNameEntryCompletionBlock).
     enterBox action:[:className |
         |cls|
 
@@ -5140,6 +5134,8 @@
     "
      SystemBrowser getClassThenPerform:#browseClass:
     "
+
+    "Modified: / 10-08-2006 / 12:54:20 / cg"
 ! !
 
 !SystemBrowser class methodsFor:'utilities'!
@@ -5398,7 +5394,7 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.232 2006-08-07 10:17:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.233 2006-08-10 11:14:20 cg Exp $'
 ! !
 
 SystemBrowser initialize!