--- a/DialogBox.st	Wed Jun 11 13:14:44 2014 +0200
+++ b/DialogBox.st	Wed Jun 11 15:45:41 2014 +0200
@@ -9816,6 +9816,14 @@
 
 !DialogBox methodsFor:'private'!
 
+assignKeyboardFocusToFirstInputField
+    (inputFieldGroup notNil and:[inputFieldGroup currentField notNil]) ifTrue:[
+        ^ self  "/ disabled - the focus might have already been changed
+                "/ explicitly to another field
+    ].
+    ^ super assignKeyboardFocusToFirstInputField
+!
+
 basicAddComponent:aComponent 
     "add a component, dont change its size"
 
@@ -10166,11 +10174,11 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.356 2014-06-10 11:48:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.357 2014-06-11 13:45:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.356 2014-06-10 11:48:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.357 2014-06-11 13:45:41 cg Exp $'
 ! !