@@ -6,11 +6,11 @@
 ;;  This program is distributed WITHOUT ANY WARRANTY; without even the
 ;;  implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;  PURPOSE.
 
 (include "common.scm")
-(define megatest-version 1.09)
+(define megatest-version 1.10)
 
 (define help (conc "
 Megatest, documentation at http://www.kiatoa.com/fossils/megatest
   version " megatest-version "
   license GPL, Copyright Matt Welland 2006-2011
@@ -188,11 +188,12 @@
 			(db:test-get-status test)
 			(db:test-get-run_duration test)
 			(db:test-get-event_time test)
 			(db:test-get-host test))
  		(if (not (or (equal? (db:test-get-status test) "PASS")
-			     (equal? (db:test-get-state test) "NOT_STARTED")))
+			     (equal? (db:test-get-status test) "WARN")
+			     (equal? (db:test-get-state test)  "NOT_STARTED")))
 		    (begin
 		      (print "         cpuload:  " (db:test-get-cpuload test)
 			     "\n         diskfree: " (db:test-get-diskfree test)
 			     "\n         uname:    " (db:test-get-uname test)
 			     "\n         rundir:   " (db:test-get-rundir test)