Index: newdashboard.scm
==================================================================
--- newdashboard.scm
+++ newdashboard.scm
@@ -584,11 +584,11 @@
    #:shrink "YES"
    (let ((tabtop (iup:tabs 
 		  (runs window-id)
 		  (tests window-id)
 		  (runcontrol window-id)
-		  (mtest window-id) 
+		  (mtest *toppath* window-id) 
 		  (rconfig window-id)
 		  )))
      (iup:attribute-set! tabtop "TABTITLE0" "Runs")
      (iup:attribute-set! tabtop "TABTITLE1" "Tests")
      (iup:attribute-set! tabtop "TABTITLE2" "Run Control")