diff --git a/collects/tests/mzscheme/pconvert.ss b/collects/tests/mzscheme/pconvert.ss
index 8079210..da0d036 100644
--- a/collects/tests/mzscheme/pconvert.ss
+++ b/collects/tests/mzscheme/pconvert.ss
@@ -220,6 +220,14 @@
 		       (cons (box (cons empty empty))
 			     (cons (cons 1 empty)
 				   empty))))
+     (make-test (list "" "" (vector) (vector))
+		'(list "" "" (vector) (vector))
+		'(list "" "" (vector) (vector))
+		'(list "" "" (vector) (vector))
+		'`("" "" ,(vector) ,(vector))
+		'`("" "" ,(vector) ,(vector))
+		'`("" "" ,(vector) ,(vector))
+		'(cons "" (cons "" (cons (vector) (cons (vector) empty)))))
      (make-test (let ([x (list 1)]) (set-car! x x) x)
 		'(shared ([-0- (list -0-)]) -0-)
 		'(shared ([-0- (list -0-)]) -0-)