Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -1025,16 +1025,18 @@
                      (begin
                        (if message
                            (debug:print-info 0 *default-log-port* message))
                        #f) (thunk) ))
 
-(define (common:file-exists? path-string)
+(define (common:file-exists? path-string #!key (silent #f))
   ;; this avoids stack dumps in the case where 
 
   ;;;; TODO: catch permission denied exceptions and emit appropriate warnings, eg:  system error while trying to access file: "/nfs/pdx/disks/icf_env_disk001/bjbarcla/gwa/issues/mtdev/randy-slow/reproduce/q...
   (common:false-on-exception (lambda () (file-exists? path-string))
-                             message: (conc "Unable to access path: " path-string)
+                             message: (if (not silent)
+                                          (conc "Unable to access path: " path-string)
+                                          #f)
                              ))
 
 (define (common:directory-exists? path-string)
   ;;;; TODO: catch permission denied exceptions and emit appropriate warnings, eg:  system error while trying to access file: "/nfs/pdx/disks/icf_env_disk001/bjbarcla/gwa/issues/mtdev/randy-slow/reproduce/q...
   (common:false-on-exception (lambda () (directory-exists? path-string))

Index: dashboard-tests.scm
==================================================================
--- dashboard-tests.scm
+++ dashboard-tests.scm
@@ -246,11 +246,11 @@
 ;; if there is a submegatest create a button to launch dashboard in that area
 ;;
 (define (submegatest-panel dbstruct keydat testdat runname testconfig)
   (let* ((test-run-dir      (db:test-get-rundir testdat))
 	 (subarea           (subrun:get-runarea test-run-dir))
-	 (area-exists       (and subarea (common:file-exists? subarea))))
+	 (area-exists       (and subarea (common:file-exists? subarea silent: #t))))
     (if subarea
 	(iup:frame 
 	 #:title "Megatest Run Info" ; #:expand "YES"
 	 (iup:button
 	  "Launch Dashboard"

Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -327,18 +327,21 @@
                                     '(allruns-by-id allruns))) ;; FIELDS OF INTEREST
                           (dboard:tabdat->alist tabdat-item)))))
 
 
 (define (dboard:launch-testpanel run-id test-id)
-  (let* ((cfg-sh  (conc *common:this-exe-dir* "/cfg.sh"))
-         (cmd (conc
-               (if (common:file-exists? cfg-sh)
-                   (conc "source "cfg-sh" && ")
-                   "")
-               *common:this-exe-fullpath*
-               " -test " run-id "," test-id
-               " &")))
+  (let* (;; (cfg-sh  (conc *common:this-exe-dir* "/cfg.sh"))
+         ;; (cmd (conc
+         ;;       (if (common:file-exists? cfg-sh)
+         ;;           (conc "source "cfg-sh" && ")
+         ;;           "")
+         ;;       *common:this-exe-fullpath*
+         ;;       " -test " run-id "," test-id
+         ;;       " &"))
+         (cmd (conc *common:this-exe-dir*"/../dashboard "
+                    "-test " run-id "," test-id
+                    " &")))
     (system cmd)))
 
 (define (dboard:tabdat-target-string vec)
   (let ((targ (dboard:tabdat-target vec)))
     (if (list? targ)(string-intersperse targ "/") "no-target-specified")))