@@ -45,19 +45,24 @@
 (include "common_records.scm")
 (include "db_records.scm")
 (include "run_records.scm")
 
 (define (dboard:launch-testpanel run-id test-id)
-  (let* (;; (cfg-sh  (conc *common:this-exe-dir* "/cfg.sh"))
+  (let* ((exepath (common:get-this-exe-fullpath))
+         (exedir  (pathname-directory exepath))
+
+         ;; (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 "
+
+         ;; (cmd (conc *common:this-exe-dir*"/../dashboard "
+         (cmd (conc exedir "/../dashboard "
                     "-test " run-id "," test-id
                     " &")))
     (system cmd)))