--- a/BrowserView.st	Sat Aug 19 04:50:22 1995 +0200
+++ b/BrowserView.st	Wed Aug 23 20:09:03 1995 +0200
@@ -29,7 +29,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.17 1995-08-19 02:49:43 claus Exp $
+$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.18 1995-08-23 18:08:14 claus Exp $
 '!
 
 !BrowserView class methodsFor:'documentation'!
@@ -50,7 +50,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.17 1995-08-19 02:49:43 claus Exp $
+$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.18 1995-08-23 18:08:14 claus Exp $
 "
 !
 
@@ -3731,6 +3731,16 @@
     |box|
 
     box := self enterBoxForCodeSelectionTitle:'class to find:' okText:'find'.
+    box entryCompletionBlock:[
+	|s what m|
+
+	s := box contents asString withoutSpaces.
+	what := Smalltalk classnameCompletion:s.
+	box contents:what first.
+	(what at:2) size ~~ 1 ifTrue:[
+	    device beep
+	]
+    ].
     box action:[:aString | self switchToClassNameMatching:aString].
     box showAtPointer
 !