From fbf7f79d8c16046f10a0fcf612ef376d37d1d46d Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 21 Nov 2009 16:17:08 +0000
Subject: [PATCH] fix get-default-print-size n landscape mode

svn: r16942
---
 collects/mred/private/wxme/editor.ss | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/collects/mred/private/wxme/editor.ss b/collects/mred/private/wxme/editor.ss
index 716743bc38..1c8ec16aaa 100644
--- a/collects/mred/private/wxme/editor.ss
+++ b/collects/mred/private/wxme/editor.ss
@@ -97,9 +97,9 @@
   (set-box! w PAGE-WIDTH)
   (set-box! h PAGE-HEIGHT)
   (when (eq? (get-printer-orientation) 'landscape)
-    (let ([tmp h])
-      (set! h w)
-      (set! w tmp))))
+    (let ([tmp (unbox h)])
+      (set-box! h (unbox w))
+      (set-box! w tmp))))
 
 ;; ----------------------------------------