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))