@@ -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.06)
+(define megatest-version 1.07)
 
 (define help (conc "
 Megatest, documentation at http://www.kiatoa.com/fossils/megatest
   version " megatest-version "
   license GPL, Copyright Matt Welland 2006-2011
@@ -479,14 +479,14 @@
 	  (if (args:get-arg "-setlog")
 	      (test-set-log! db run-id test-name itemdat (args:get-arg "-setlog")))
 	  (if (args:get-arg "-set-toplog")
 	      (test-set-toplog! db run-id test-name (args:get-arg "-set-toplog")))
 	  (if (args:get-arg "-test-status")
-	      (let ((newstat (cond
-			      ((number? status)       (if (equal? status 0) "PASS" "FAIL"))
-			      ((string->number status)(if (equal? (string->number status) 0) "PASS" "FAIL"))
-			      (else status))))
+	      (let ((newstatus (cond
+				((number? status)       (if (equal? status 0) "PASS" "FAIL"))
+				((string->number status)(if (equal? (string->number status) 0) "PASS" "FAIL"))
+				(else status))))
 		(test-set-status! db run-id test-name state newstatus itemdat (args:get-arg "-m")))
 	      (if (and state status)
 		  (if (not (args:get-arg "-setlog"))
 		      (begin
 			(print "ERROR: You must specify :state and :status with every call to -test-status\n" help)