From ddf4e8706751f444ba5901230464f25ef4b06f94 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 11 Aug 1998 14:25:06 +0000
Subject: [PATCH] .

original commit: 7ee9ec6baedf512b598dab2b4843b2f04cb2e351
---
 src/mred/wrap/mred.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index 60407bca..14d42e3b 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -2733,7 +2733,7 @@
 
 (define get-ps-setup-from-user
   (case-lambda
-   [() (get-ps-setup-from-user parent null)]
+   [() (get-ps-setup-from-user #f null)]
    [(parent) (get-ps-setup-from-user parent null)]
    [(parent style)
     (define pss (wx:current-ps-setup))