--- a/ResourceSelectionBrowser.st	Sat Apr 25 17:45:05 1998 +0200
+++ b/ResourceSelectionBrowser.st	Sat Apr 25 18:26:34 1998 +0200
@@ -707,7 +707,7 @@
         |what|
         what := Smalltalk classnameCompletion: value withoutSpaces.
         classNameInputField contents:what first.
-        (what at:2) size ~~ 1 ifTrue:[Display beep].
+        (what at:2) size ~~ 1 ifTrue:[Screen current beep].
         classSelectionBlock value: classNameInputField contents
     ].