--- a/DialogBox.st	Wed Sep 04 23:27:56 2019 +0200
+++ b/DialogBox.st	Sat Sep 07 13:55:35 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
@@ -11441,11 +11439,14 @@
     autoAccept ifTrue:[    
         addedComponents notNil ifTrue:[
             addedComponents do:[:aComponent |
-                (aComponent respondsTo:#acceptIsUserAction:) ifTrue:[
-                    aComponent acceptIsUserAction:false.
-                ] ifFalse:[                       
-                    (aComponent respondsTo:#accept:) ifTrue:[
+                [
+                    aComponent acceptIsUserAction:false
+                ] on:MessageNotUnderstood do:[:ex |
+                    ex selector == #acceptIsUserAction: ifFalse:[ex reject].
+                    [
                         aComponent accept
+                    ] on:MessageNotUnderstood do:[:ex |
+                        ex selector == #accept ifFalse:[ex reject].
                     ]
                 ]
             ]