--- a/DialogBox.st	Tue Oct 01 17:13:20 2002 +0200
+++ b/DialogBox.st	Tue Oct 01 17:18:59 2002 +0200
@@ -4267,11 +4267,12 @@
         onCancel:nil
         list:nil
         initialSelection:nil
-        entryCompletionBlock:[:s | |completion|
+        entryCompletionBlock:[:s :field| 
+                                |completion|
 
                                 completion := Smalltalk selectorCompletion:s.
                                 completion second size > 1 ifTrue:[ Screen current beep].
-                                completion first
+                                field contents:(completion first)
                               ]
 
     "
@@ -7596,7 +7597,7 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.198 2002-09-30 13:19:07 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.199 2002-10-01 15:18:59 cg Exp $'
 ! !
 
 DialogBox initialize!