Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -102,16 +102,21 @@
 			)
 		 args:arg-hash
 		 0))
 
 ;; check for MT_* environment variables and exit if found
-(for-each (lambda (var)
-	    (if (get-environment-variable var)
-		(begin
-		  (print "ERROR: environment variable " var " is set in this terminal, this will cause you problems. Exiting now.")
-		  (exit 1))))
-	  '("MT_RUN_AREA_HOME" "MT_MEGATEST" "MT_CMDINFO" "MT_TEST_RUN_DIR" "MT_LINKTREE" "MT_TESTSUITENAME"))
+(if (not (args:get-arg "-test"))
+    (begin
+      (display "Checking for MT_ vars: ")
+      (for-each (lambda (var)
+		  (display " ")(display var)
+		  (if (get-environment-variable var)
+		      (begin
+			(print "ERROR: environment variable " var " is set in this terminal, this will cause you problems. Exiting now.")
+			(exit 1))))
+		'("MT_RUN_AREA_HOME" "MT_MEGATEST" "MT_CMDINFO" "MT_TEST_RUN_DIR" "MT_LINKTREE" "MT_TESTSUITENAME"))
+      (print ". Done. All ok.")))
 
 (if (not (null? remargs))
     (begin
       (print "Unrecognised arguments: " (string-intersperse remargs " "))
       (exit)))
@@ -126,11 +131,11 @@
         (let ((fullpath (common:real-path (args:get-arg "-start-dir"))))
           (setenv "PWD" fullpath)
           (change-directory fullpath))
 	(begin
 	  (debug:print-error 0 *default-log-port* "non-existant start dir " (args:get-arg "-start-dir") " specified, exiting.")
-	  (exit 1))))
+ 	  (exit 1))))
 
 ;; TODO: Move this inside (main)
 ;;
 (if (not (launch:setup))
     (begin