diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index 3798c139..5dc772fb 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -7008,13 +7008,13 @@
 	(set-bitmap bitmap)))))
 
 (define post-script-dc%
-  (class100 wx:post-script-dc% ([interactive? #t][parent #f][use-paper-bbox? #f])
+  (class100 wx:post-script-dc% ([interactive #t][parent #f][use-paper-bbox #f][as-eps #t])
     (sequence
       (check-top-level-parent/false '(constructor post-script-dc) parent)
       (as-entry
        (lambda ()
 	 (let ([p (and parent (mred->wx parent))])
-	   (as-exit (lambda () (super-init interactive? p use-paper-bbox?)))))))))
+	   (as-exit (lambda () (super-init interactive p use-paper-bbox as-eps)))))))))
 
 (define printer-dc%
   (class100 wx:printer-dc% ([parent #f])
diff --git a/collects/mred/private/kernel.ss b/collects/mred/private/kernel.ss
index 66bb483e..a8d891d9 100644
--- a/collects/mred/private/kernel.ss
+++ b/collects/mred/private/kernel.ss
@@ -411,7 +411,7 @@
     get-argb-pixels
     set-pixel
     get-pixel)
-  (define-class post-script-dc% dc% ([interactive? #t] [parent #f] [use-paper-bbox? #f]))
+  (define-class post-script-dc% dc% ([interactive #t] [parent #f] [use-paper-bbox #f] [eps #t]))
   (define-class printer-dc% dc% ([parent #f]))
   (define-private-class gl-context% gl-context<%> object% #f
     call-as-current