Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -1759,19 +1759,20 @@
 					(d:alldat-please-update-set! *alldat* #t)
 					(d:alldat-curr-tab-num-set! *alldat* curr))
 		    (dashboard:summary *alldat*)
 		    runs-view
 		    (dashboard:one-run db  data runs-sum-dat)
-		    (dashboard:new-view db data new-view-dat)
+		    ;; (dashboard:new-view db data new-view-dat)
 		    (dashboard:run-controls)
 		    )))
 	;; (set! (iup:callback tabs tabchange-cb:) (lambda (a b c)(print "SWITCHED TO TAB: " a " " b " " c)))
 	(iup:attribute-set! tabs "TABTITLE0" "Summary")
 	(iup:attribute-set! tabs "TABTITLE1" "Runs")
 	(iup:attribute-set! tabs "TABTITLE2" "Run Summary")
-	(iup:attribute-set! tabs "TABTITLE3" "New View")
-	(iup:attribute-set! tabs "TABTITLE4" "Run Control")
+	(iup:attribute-set! tabs "TABTITLE3" "Run Control")
+	;; (iup:attribute-set! tabs "TABTITLE3" "New View")
+	;; (iup:attribute-set! tabs "TABTITLE4" "Run Control")
 	(iup:attribute-set! tabs "BGCOLOR" "190 190 190")
 	(d:alldat-hide-not-hide-tabs-set! *alldat* tabs)
 	(iup:vbox
 	 tabs
 	 controls))))

Index: mt.scm
==================================================================
--- mt.scm
+++ mt.scm
@@ -137,11 +137,12 @@
 		(db:test-get-rundir test-dat)) ;; ) ;; )
 	       (test-name     (db:test-get-testname test-dat))
 	       (tconfig       #f)
 	       (state         (if newstate  newstate  (db:test-get-state  test-dat)))
 	       (status        (if newstatus newstatus (db:test-get-status test-dat))))
-	  (if (and test-rundir   ;; #f means no dir set yet
+	  (if (and test-name
+		   test-rundir   ;; #f means no dir set yet
 		   (file-exists? test-rundir)
 		   (directory? test-rundir))
 	      (call-with-environment-variables
 	       (list (cons "MT_TEST_NAME" test-name)
 		     (cons "MT_TEST_RUN_DIR" test-rundir)