@@ -369,11 +369,11 @@ ;; FIXME SOMEDAY: not good how this is so obtuse, this hack is to ;; allow running from dashboard (local-megatest (let* ((lm (car (argv))) (dir (pathname-directory lm)) (exe (pathname-strip-directory lm))) - (conc dir "/" + (conc (if dir (conc dir "/") "") (case (string->symbol exe) ((dboard) "megatest") ((dashboard) "megatest") (else exe))))) (test-sig (conc "=" test-name ":" (item-list->path itemdat) "=")) ;; test-path is the full path including the item-path