@@ -50,11 +50,11 @@
   (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)
+         ;;       (if (file-exists? cfg-sh)
          ;;           (conc "source "cfg-sh" && ")
          ;;           "")
          ;;       *common:this-exe-fullpath*
          ;;       " -test " run-id "," test-id
          ;;       " &"))
@@ -190,11 +190,11 @@
                          (status   (vector-ref step 3)))
                      (iup:menu-item
                       (conc stepname "/" (if (string=? logfile "") "no log!" logfile) " (" status ")")
                       #:action (lambda (obj)
                                  (let ((fullfile (conc rundir "/" logfile)))
-                                   (if (common:file-exists? fullfile)
+                                   (if (file-exists? fullfile)
                                        (dcommon:run-html-viewer fullfile)
                                        (message-window (conc "file " fullfile " not found"))))))))
                  steps)))))
 
 (define (dashboard:toplevel-menu-items  run-id test-id target runname test-name testpatt item-test-path test-info)
@@ -250,11 +250,11 @@
      #:action
      (lambda (obj)
        (let* ((rundir    (db:test-get-rundir      test-info))
               (logf      (db:test-get-final_logf  test-info))
               (fullfile  (conc rundir "/" logf)))
-         (if (common:file-exists? fullfile)
+         (if (file-exists? fullfile)
              (dcommon:run-html-viewer fullfile)
              (message-window (conc "file " fullfile " not found.")))))
      )
     ))
 ;; example section for megatest.config: