diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index 1b8c0094..fec10694 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -5488,13 +5488,13 @@
 	(set-bitmap bm)))))
 
 (define post-script-dc%
-  (class100 wx:post-script-dc% ([i? #t][parent #f])
+  (class100 wx:post-script-dc% ([interactive? #t][parent #f][use-paper-bbox? #f])
     (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 i? p)))))))))
+	   (as-exit (lambda () (super-init interactive? p use-paper-bbox?)))))))))
 
 (define printer-dc%
   (class100 wx:printer-dc% ([parent #f])
diff --git a/collects/mred/private/kernel.ss b/collects/mred/private/kernel.ss
index 40e0c338..86820f78 100644
--- a/collects/mred/private/kernel.ss
+++ b/collects/mred/private/kernel.ss
@@ -401,7 +401,7 @@
     set-bitmap
     set-pixel
     get-pixel)
-  (define-class post-script-dc% dc% ([interactive? #t] [parent #f]))
+  (define-class post-script-dc% dc% ([interactive? #t] [parent #f] [use-paper-bbox? #f]))
   (define-class printer-dc% dc% ([parent #f]))
   (define-class event% object% ([time-stamp 0])
     get-time-stamp