diff --git a/test-opt2.scm b/test-opt2.scm
index 9b247ae2..41526aab 100644
--- a/test-opt2.scm
+++ b/test-opt2.scm
@@ -7,6 +7,7 @@
         (scheme eval)
 )
 
+(define *num-passed* 0)
 (define (assert:equal msg actual expected)
   (if (not (equal? actual expected))
       (error "Unit test failed [" msg "] actual [" actual "] expected [" expected "]")