pasteboard printing fix

svn: r14489
2009-04-11 13:37:14 +00:00 · 2009-04-11 13:37:14 +00:00 · c98e4e0881
commit c98e4e0881
parent ae7b6c6716
1 changed files with 1 additions and 1 deletions
--- a/collects/mred/private/wxme/pasteboard.ss
+++ b/collects/mred/private/wxme/pasteboard.ss
@ -2081,7 +2081,7 @@
            (when (or (zero? (unbox w))
                      (zero? (unbox h)))
              (get-default-print-size w h))
-            (send (current-ps-setup) get-editor-marginhm vm))
+            (send (current-ps-setup) get-editor-margin hm vm))
        (let ([W (- w (* 2 hm))]
              [H (- h (* 2 vm))])
          (let-boxes ([w 0.0]