diff --git a/test/scm.test b/test/scm.test
index 4bd39563..59a213ef 100644
--- a/test/scm.test
+++ b/test/scm.test
@@ -177,9 +177,4 @@
 (pass-if "char-alphabetic?" (seq? (char-alphabetic? #\a) #t))
 (pass-if "char-alphabetic? 2" (seq? (char-alphabetic? #\[) #f))
 
-(newline)
-(display "passed: ") (display (car (result))) (newline)
-(display "failed: ") (display (cadr (result))) (newline)
-(display "total: ") (display (apply + (result))) (newline)
-
-(exit (cadr (result)))
+(result 'report)