diff --git a/collects/tests/mzscheme/pconvert.ss b/collects/tests/mzscheme/pconvert.ss
index 0c26277..9f045ec 100644
--- a/collects/tests/mzscheme/pconvert.ss
+++ b/collects/tests/mzscheme/pconvert.ss
@@ -443,10 +443,14 @@
 (let ([pc
        (lambda (pv)
          (lambda (x)
-           (parameterize ([use-numbered-names pv])
+           (parameterize ([named/undefined-handler (lambda (x) 'whee)]
+                          [use-named/undefined-handler
+                           (lambda (x) pv)])
              (print-convert x))))])
   (test '(lambda (a1) ...) (pc #f) (let ([f (lambda (x) x)]) f))
-  (test 'f_1 (pc #t) (let ([f (lambda (x) x)]) f))
-  (test '(list f_2 f_3) (pc #t) (let ([g (lambda (y) (let ([f (lambda (x) y)]) f))]) (list (g 1) (g 2)))))
+  (test 'whee (pc #t) (let ([f (lambda (x) x)]) f))
+  (test '(list whee whee) 
+        (pc #t) 
+        (let ([g (lambda (y) (let ([f (lambda (x) y)]) f))]) (list (g 1) (g 2)))))
 
 (report-errs)