@@ -551,11 +551,11 @@
          (cleanup-proc        (lambda (msg)
                                 (let* ((serv-fname      (conc "server-" (current-process-id) "-" (get-host-name) ".log"))
                                        (full-serv-fname (conc *toppath* "/logs/" serv-fname))
                                        (new-serv-fname  (conc *toppath* "/logs/" "defunct-" serv-fname)))
                                   (debug:print 0 *default-log-port* msg)
-                                  (if (common:file-exists? full-serv-fname)
+                                  (if (file-exists? full-serv-fname)
                                       (system (conc "sleep 1;mv -f " full-serv-fname " " new-serv-fname))
                                       (debug:print 0 *default-log-port* "INFO: cannot move " full-serv-fname " to " new-serv-fname))
                                   (exit)))))
     (if (and (not start-time-old) ;; last server start try was less than five seconds ago
 	     (not server-starting))