@@ -43,15 +43,17 @@
   (if (and (common:file-exists? (conc test-run-dir "/subrun-area") )
            (common:file-exists? (conc test-run-dir "/testconfig.subrun") ))
       #t
       #f))
 
-(define (subrun:launch-dashboard test-run-dir)
+(define (subrun:launch-dashboard test-run-dir #!key (target #f)(runname #f))
   (if (subrun:subrun-test-initialized? test-run-dir)
-      (let* ((subarea (subrun:get-runarea test-run-dir)))
+      (let* ((subarea (subrun:get-runarea test-run-dir))
+	     (params  (conc (if target (conc " -target " target) "")
+			    (if runname (conc " -runname " runname) ""))))
         (if (and subarea (common:file-exists? subarea))
-            (system (conc "cd " subarea ";env -i PATH=$PATH DISPLAY=$DISPLAY HOME=$HOME USER=$USER dashboard &"))))))
+            (system (conc "cd " subarea ";env -i PATH=$PATH DISPLAY=$DISPLAY HOME=$HOME USER=$USER nbfake dashboard " params))))))
 
 (define (subrun:subrun-removed? test-run-dir)
   (if (subrun:subrun-test-initialized? test-run-dir)
       (let ((flagfile (conc test-run-dir "/subrun.removed")))
         (if (common:file-exists? flagfile)
@@ -209,11 +211,14 @@
                          (cons "-log" logfile)
                          (map (lambda (item)
                                 (if (equal? (car item) "-testpatt")
                                     (cons "-testpatt" testpatt)
                                     item))
-                                switch-alist-pre))))
+                              switch-alist-pre))))
+    (with-output-to-file "subrun-command-parts.sexp"
+      (lambda ()
+	(pp switch-alist)))
     switch-alist))
     ;; note - get precmd from subrun section
     ;;   apply to submegatest commands
 
 (define (subrun:get-log-path test-run-dir log-prefix)