diff --git a/collects/tests/racket/pconvert.rktl b/collects/tests/racket/pconvert.rktl
index e227556..0d2a67f 100644
--- a/collects/tests/racket/pconvert.rktl
+++ b/collects/tests/racket/pconvert.rktl
@@ -390,6 +390,15 @@
   (test #f (pc #f) #f)
   (test #t (pc #f) #t))
 
+(let ([pc
+       (λ (prefix?)
+         (λ (x)
+           (parameterize ([add-make-prefix-to-constructor prefix?])
+             (print-convert x))))])
+  (struct s (x) #:transparent)
+  (test '(s 1) (pc #f) (s 1))
+  (test '(make-s 1) (pc #t) (s 1)))
+
 (let ([pc
        (lambda (pv)
          (lambda (x)