diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index d92688e6..da2a61f9 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -4982,8 +4982,8 @@
     (define p (make-object horizontal-pane% f))
     (define paper (make-object choice% #f papers p void))
     (define _0 (make-object vertical-pane% p))
-    (define ok (make-object button% "OK" p (lambda (b e) (done #t)) '(border)))
     (define cancel (make-object button% "Cancel" p (lambda (b e) (done #f))))
+    (define ok (make-object button% "OK" p (lambda (b e) (done #t)) '(border)))
     (define unix? (eq? (system-type) 'unix))
     (define dp (make-object horizontal-pane% f))
     (define orientation (make-object radio-box% "Orientation:" '("Portrait" "Landscape") dp void))