diff --git a/t/var-01.hcl b/t/var-01.hcl
index 71a3044..7580616 100644
--- a/t/var-01.hcl
+++ b/t/var-01.hcl
@@ -95,3 +95,17 @@
 
 (if (nqv? R false) (print "ERROR: R is not false\n")
  else (printf "OK: %O\n" R))
+
+(set v 
+	#(
+		(do |a b| (set a 10) (set b 20) (+ a b) )
+ 		(do |a b| (set a 11) (set b 21) (+ a b) )
+   		999
+	)
+)
+
+(set v2 #(30 32 999))
+
+(if (nql? v v2) (print "ERROR: v1 and v2 are not equal\n")
+ else (printf "OK: v and v2 equal\n"))
+