@@ -201,11 +201,11 @@
                                     "\n")
                  (print-call-chain (current-error-port))
                  #f)
                (if (and test-name
                         test-rundir)   ;; #f means no dir set yet
-                   ;; (common:file-exists? test-rundir)
+                   ;; (file-exists? test-rundir)
                    ;; (directory? test-rundir))
                    (call-with-environment-variables
                     (list (cons "MT_TEST_NAME"    (or test-name "no such test"))
                           (cons "MT_TEST_RUN_DIR" (or test-rundir "no test directory yet"))
                           (cons "MT_ITEMPATH"     (or item-path "")))
@@ -271,11 +271,11 @@
 	(let ((test-dirs (tests:get-tests-search-path *configdat*)))
 	  (let loop ((hed (car test-dirs))
 		     (tal (cdr test-dirs)))
 	    ;; Setting MT_LINKTREE here is almost certainly unnecessary. 
 	    (let ((tconfig-file (conc hed "/" test-name "/testconfig")))
-	      (if (and (common:file-exists? tconfig-file)
+	      (if (and (file-exists? tconfig-file)
 		       (file-read-access? tconfig-file))
 		  (let ((link-tree-path (common:get-linktree)) ;; (configf:lookup *configdat* "setup" "linktree"))
 			(old-link-tree  (get-environment-variable "MT_LINKTREE")))
 		    (if link-tree-path (setenv "MT_LINKTREE" link-tree-path))
 		    (let ((newtcfg (read-config tconfig-file #f #f))) ;; NOTE: Does NOT run [system ...]