diff --git a/collects/tests/mzscheme/pconvert.ss b/collects/tests/mzscheme/pconvert.ss
index ac508e6..49c9046 100644
--- a/collects/tests/mzscheme/pconvert.ss
+++ b/collects/tests/mzscheme/pconvert.ss
@@ -200,14 +200,14 @@
      (make-same-test (lambda x x) '(lambda args ...))
      (make-same-test (lambda (a b . c) a) '(lambda (a1 a2 . args) ...))
      (make-same-test (case-lambda) '(case-lambda))
-     (make-same-test (case-lambda [() a] [(x) a]) '(case-lambda [() ...] [(a1) ...]))
-     (make-same-test (case-lambda [() a] [(x y) a])
+     (make-same-test (case-lambda [() 'a] [(x) 'a]) '(case-lambda [() ...] [(a1) ...]))
+     (make-same-test (case-lambda [() 'a] [(x y) 'a])
                      '(case-lambda [() ...] [(a1 a2) ...]))
-     (make-same-test (case-lambda [() a] [(x . y) a])
+     (make-same-test (case-lambda [() 'a] [(x . y) 'a])
                      '(case-lambda [() ...] [(a1 . args) ...]))
-     (make-same-test (case-lambda [() a] [x a])
+     (make-same-test (case-lambda [() 'a] [x 'a])
                      '(case-lambda [() ...] [args ...]))
-     (make-same-test (case-lambda [() a] [(x y z) a] [x a])
+     (make-same-test (case-lambda [() 'a] [(x y z) 'a] [x 'a])
                      '(case-lambda [() ...] [(a1 a2 a3) ...] [args ...]))
      (make-same-test (let ([ht (make-hash-table)])
                        (hash-table-put! ht 'x 1)