diff --git a/collects/framework/gui-utils.ss b/collects/framework/gui-utils.ss
index 9bcf60de..20f5b20e 100644
--- a/collects/framework/gui-utils.ss
+++ b/collects/framework/gui-utils.ss
@@ -110,7 +110,7 @@
 
 ;; end choices-canvas%
 
-(define (cancel-on-right?) (eq? (system-type) 'windows))
+(define (cancel-on-right?) (system-position-ok-before-cancel?))
 
 (define ok/cancel-buttons
   (lambda (parent 
@@ -334,6 +334,8 @@
   @{Returns @scheme[#t] if cancel should be on the right-hand side (or below)
             in a dialog and @scheme[#f] otherwise.
             
+            Just returns what @scheme[system-position-ok-before-cancel?] does.
+            
             See also @scheme[gui-utils:ok/cancel-buttons].})
  (proc-doc/names
   gui-utils:ok/cancel-buttons