--- a/DialogBox.st	Fri Jan 26 07:31:18 2018 +0100
+++ b/DialogBox.st	Fri Jan 26 07:36:50 2018 +0100
@@ -6558,6 +6558,11 @@
     "somewhat of a kludge:
      some viewStyles have ok at left (motif), others at right..."
 
+    |enforced|
+
+    (enforced := UserPreferences current enforcedOKPositionInDialogs) notNil ifTrue:[
+        ^ enforced == #left
+    ].
     ^ (StyleSheet at:'dialogBox.okAtLeft' default:false)
 
     "