diff --git a/runtests.fs b/runtests.fs
index 996ee47..e6aa3ff 100644
--- a/runtests.fs
+++ b/runtests.fs
@@ -10,4 +10,4 @@ include test/tester.fs
 include test/core.fs
 include test/coreplustest.fs
 
-print-report
+report-and-exit
diff --git a/test/tester.fs b/test/tester.fs
index 67ff600..bb24441 100644
--- a/test/tester.fs
+++ b/test/tester.fs
@@ -70,14 +70,16 @@ create actual-results 20 cells allot
     1 #skip +!
 ;
 
-: print-report
+: report-and-exit
     decimal
 
     cr ." --------------------------------"
     cr ." Run " #ok @ #error @ + #skip @ + . ." tests" cr
-    ." ok:" #ok @ .
-    ." failed:" #error @ .
-    ." skipped:" #skip @ .
+    green ." ok:" #ok @ .
+    red ." failed:" #error @ .
+    yellow ." skipped:" #skip @ .
+    reset
     cr ." --------------------------------"
     cr
+    #error @ 0= if bye else abort then
 ;