diff --git a/test-unitaire.lisp b/test-unitaire.lisp
index 3d3fa97..2c07910 100644
--- a/test-unitaire.lisp
+++ b/test-unitaire.lisp
@@ -40,14 +40,16 @@
                      (format t "~&              expected   : ~w~&" exp)
                      (format t "~&              comparison : ~w~&" _compare)
                      nil))))
-           (third (assoc ',module all-tests)))))
+           (third (assoc ',module all-tests)))
+     t))
 
 (defmacro deftestvar (module name value)
   `(progn
      (if (not (assoc ',module all-tests))
          (setf all-tests (cons (list ',module nil nil) all-tests)))
      (push (list ',name (list 'copy-seq ',value))
-           (second (assoc ',module all-tests)))))
+           (second (assoc ',module all-tests)))
+     t))
 
 (defmacro run-tests (&rest modules)
   (if (or (not modules)