--- a/UserPreferences.st	Fri Jan 26 07:42:22 2018 +0100
+++ b/UserPreferences.st	Fri Jan 26 08:24:47 2018 +0100
@@ -1940,6 +1940,12 @@
              nil to use whatever the stylesheet uses"
 
     ^ self at:#enforcedPositionOfOKButtonInDialogs ifAbsent:[ nil ]
+
+    "
+     UserPreferences current enforcedPositionOfOKButtonInDialogs
+     UserPreferences current enforcedPositionOfOKButtonInDialogs:#left
+     UserPreferences current enforcedPositionOfOKButtonInDialogs:nil
+    "
 !
 
 enforcedPositionOfOKButtonInDialogs:aSymbolOrNil