@@ -232,27 +232,27 @@
 (define *common:this-exe-name*     (pathname-strip-directory *common:this-exe-fullpath*))
 
 ;; when called from a wrapper I need sometimes to find the calling
 ;; wrapper, this is for dashboard to find the correct megatest.
 ;;
-(define (common:find-local-megatest)
+(define (common:find-local-megatest #!optional (progname "megatest"))
   (let ((res (filter file-exists?
 		     (map (lambda (updir)
 			    (let* ((lm  (car (argv)))
 				   (dir (pathname-directory lm))
 				   (exe (pathname-strip-directory lm)))
 			      (conc (if dir (conc dir "/") "")
 				    (case (string->symbol exe)
-				      ((dboard)    (conc updir "megatest"))
-				      ((mtest)     (conc updir "megatest"))
-				      ((dashboard) "megatest")
+				      ((dboard)    (conc updir progname))
+				      ((mtest)     (conc updir progname))
+				      ((dashboard) progname)
 				      (else exe)))))
-			  '("../" "../../")))))
+			  '("../../" "../")))))
     (if (null? res)
 	(begin
 	  (debug:print 0 *current-log-port* "Failed to find this executable! Using what can be found on the path")
-	  "megatest")
+	  progname)
 	(car res))))
 
 (define *common:logpro-exit-code->status-sym-alist*
   '( ( 0 . pass )
      ( 1 . fail )