diff --git a/collects/tests/mzscheme/pconvert.ss b/collects/tests/mzscheme/pconvert.ss
index fd1ea43..9a600e5 100644
--- a/collects/tests/mzscheme/pconvert.ss
+++ b/collects/tests/mzscheme/pconvert.ss
@@ -329,16 +329,16 @@
   (test-not-shared 1 1)
   (test-not-shared 3276832768327683276832768327683276832768
 		   3276832768327683276832768327683276832768)
-  (test-not-shared (regexp "") '(regexp ...))
-  (let ([in (open-input-string "")]) (test-not-shared in in))
-  (let ([out (open-output-string)]) (test-not-shared out out))
+  (test-shared (regexp "") '(regexp ...))
+  (let ([in (open-input-string "")]) (test-shared in in))
+  (let ([out (open-output-string)]) (test-shared out out))
   (test-not-shared #\a #\a)
   (test-not-shared 'x ''x)
-  (test-not-shared (lambda (x) x) '(lambda (a1) ...))
-  (test-not-shared (make-promise (lambda () 1)) '(delay ...))
-  (test-not-shared (class object% ()) '(class ...))
-  (test-not-shared (unit (import) (export)) '(unit ...))
-  (test-not-shared (make-object (class object% () (sequence (super-init)))) '(make-object (class ...) ...))
+  (test-shared (lambda (x) x) '(lambda (a1) ...))
+  (test-shared (make-promise (lambda () 1)) '(delay ...))
+  (test-shared (class object% ()) '(class ...))
+  (test-shared (unit (import) (export)) '(unit ...))
+  (test-shared (make-object (class object% () (sequence (super-init)))) '(make-object (class ...) ...))
 
   (test-shared "abc" "abc")
   (test-shared (list 1 2 3) '(list 1 2 3))