--- a/UIPainter.st	Tue Jan 27 10:20:25 1998 +0100
+++ b/UIPainter.st	Tue Jan 27 10:22:38 1998 +0100
@@ -2415,13 +2415,23 @@
     box okText:'OK'.
     box abortText:'Cancel'.
     box initialText: 'ApplicationModel'.
+    box entryCompletionBlock:[:contents |
+        |s what m|
+
+        s := contents withoutSpaces.
+        what := Smalltalk classnameCompletion:s.
+        box contents:what first.
+        (what at:2) size ~~ 1 ifTrue:[
+            self beep
+        ]
+    ].
     box showAtPointer.
     box accepted
-    ifTrue:
-    [            
+    ifTrue:[            
         self loadFromInClassesOf: box contents asSymbol
     ]
 
+    "Modified: / 27.1.1998 / 09:30:27 / stefan"
 !
 
 loadFromInClassesOf: aSuperclassOrSymbol