diff --git a/circ-test.scm b/circ-test.scm
index 0c3c9056..0201c36b 100644
--- a/circ-test.scm
+++ b/circ-test.scm
@@ -4,22 +4,29 @@
 (define v2 (vector v1))
 (vector-set! v1 0 v2)
 (display v1)
-;(equal? v1 v2)
+(display (equal? v1 v2))
+(newline)
 
 (define v1 (vector 1 2 3))
 (define v2 (vector 1 v1 3))
 (vector-set! v1 1 v2)
 (display v1)
+;(display (equal? v1 v2))
+(newline)
 
 (define l1 (list #f))
 (define l2 (list l1))
 (set-cdr! l1 l2)
 (display l1)
+(display (equal? l1 l2))
+(newline)
 
 (define l1 (list 1 2 3))
 (define l2 (list 1 l1 3))
 (set-cdr! (cdr l1) l2)
 (write l1)
+(display (equal? l1 l2))
+(newline)
 
 ; TODO: need to compare pointers to prevent this sort of thing:
 ;