--- a/DialogBox.st	Mon Feb 23 18:15:02 2015 +0100
+++ b/DialogBox.st	Tue Feb 24 16:46:08 2015 +0100
@@ -9930,6 +9930,19 @@
     ^ super assignKeyboardFocusToFirstInputField
 !
 
+assignKeyboardFocusToFirstKeyboardConsumer
+    |field|
+
+    (inputFieldGroup notNil 
+      and:[(field := inputFieldGroup currentField) notNil
+      and:[field shown]]) ifTrue:[
+        self assignKeyboardFocusTo:field.
+        ^ self  "/ disabled - the focus might have already been changed
+                "/ explicitly to another field
+    ].
+    ^ super assignKeyboardFocusToFirstKeyboardConsumer
+!
+
 basicAddComponent:aComponent 
     "add a component, dont change its size"
 
@@ -10280,11 +10293,11 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.362 2015-01-31 13:42:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.363 2015-02-24 15:46:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.362 2015-01-31 13:42:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.363 2015-02-24 15:46:08 cg Exp $'
 ! !