diff --git a/lib/chibi/test.scm b/lib/chibi/test.scm
index f1eda8de..d7c72946 100644
--- a/lib/chibi/test.scm
+++ b/lib/chibi/test.scm
@@ -172,7 +172,7 @@
         (exn
          (else
            (warning "error in group outside of tests")
-           (print-exception e (current-error-port))
+           (print-exception exn (current-error-port))
            (test-group-inc! (current-test-group) 'count)
            (test-group-inc! (current-test-group) 'ERROR)))
         body ...)