diff --git a/collects/tests/racket/pconvert.rktl b/collects/tests/racket/pconvert.rktl
index 0d2a67f..523a24d 100644
--- a/collects/tests/racket/pconvert.rktl
+++ b/collects/tests/racket/pconvert.rktl
@@ -319,7 +319,15 @@
                               (-4- `(1 . ,-5-))
                               (-5- `(2 3))
                               (-8- `(,-4- ,-5- (2 3))))
-                           -0-))))
+                           -0-))
+     (make-pctest (read (open-input-string "#hasheq((#0=(1 . #0#) . a))"))
+                  '(shared ((-1- (cons 1 -1-))) (make-hasheq (list (cons -1- 'a))))
+                  '(shared ((-1- (cons 1 -1-))) (make-hasheq (list (cons -1- 'a))))
+                  '(shared ((-1- (cons 1 -1-))) (make-hasheq (list (cons -1- 'a))))
+                  '(shared ((-1- `(1 unquote -1-))) (make-hasheq (list (cons -1- 'a))))
+                  '(shared ((-1- `(1 unquote -1-))) (make-hasheq (list (cons -1- 'a))))
+                  '(shared ((-1- `(1 unquote -1-))) (make-hasheq (list (cons -1- 'a))))
+                  '(shared ((-1- (cons 1 -1-))) (make-hasheq (list (cons -1- 'a)))))))
   (for-each run-test tests))
 
 (let ()