--- a/BrowserView.st	Wed Jul 26 14:45:52 2000 +0200
+++ b/BrowserView.st	Sat Jul 29 13:52:24 2000 +0200
@@ -11409,7 +11409,7 @@
     inputField entryCompletionBlock:[:contents |
         |s what m|
 
-        s := contents withoutSpaces.
+        s := contents string withoutSpaces.
         box topView withWaitCursorDo:[
             what := Smalltalk selectorCompletion:s.
             inputField contents:what first.
@@ -11562,6 +11562,7 @@
             self warn:'no class(es) for search'.
             ^ self.
         ].
+        sel := sel string.
 
         LastSearchPatterns isNil ifTrue:[
             LastSearchPatterns := OrderedCollection new.
@@ -14143,6 +14144,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.627 2000-07-25 11:21:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.628 2000-07-29 11:52:24 cg Exp $'
 ! !
 BrowserView initialize!