--- a/SystemBrowser.st	Fri Sep 15 04:24:48 1995 +0200
+++ b/SystemBrowser.st	Thu Sep 21 14:26:50 1995 +0200
@@ -64,7 +64,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.39 1995-09-07 12:53:45 claus Exp $
+$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.40 1995-09-21 12:26:50 claus Exp $
 "
 !
 
@@ -392,10 +392,10 @@
 
     enterBox := EnterBox title:(self classResources at:'Browse which class:') withCRs.
     enterBox okText:(self classResources at:'browse').
-    enterBox entryCompletionBlock:[
+    enterBox entryCompletionBlock:[:contents |
 	|s what m|
 
-	s := enterBox contents asString withoutSpaces.
+	s := contents withoutSpaces.
 	what := Smalltalk classnameCompletion:s.
 	enterBox contents:what first.
     ].