@@ -247,11 +247,11 @@
 				      ((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")
+	  (debug:print 0 *default-log-port* "Failed to find this executable! Using what can be found on the path")
 	  progname)
 	(car res))))
 
 (define *common:logpro-exit-code->status-sym-alist*
   '( ( 0 . pass )
@@ -908,11 +908,11 @@
       (configf:lookup *configdat* "setup" "testsuite" )
       (getenv "MT_TESTSUITE_NAME")
       (pathname-file (or (if (string? *toppath* )
 			     (pathname-file *toppath*)
 			     #f)
-			 (common:get-topath #f)))
+			 (common:get-toppath #f)))
       "please-set-setup-area-name")) ;; (pathname-file (current-directory)))))
 
 ;; safe getting of toppath
 (define (common:get-toppath areapath)
   (or *toppath*
@@ -1313,21 +1313,19 @@
                        (if message
                            (debug:print-info 0 *default-log-port* message))
                        #f) (thunk) ))
 
 (define (common:file-exists? path-string #!key (silent #f))
-  ;; this avoids stack dumps in the case where 
-
-  ;;;; TODO: catch permission denied exceptions and emit appropriate warnings, eg:  system error while trying to access file: "/nfs/pdx/disks/icf_env_disk001/bjbarcla/gwa/issues/mtdev/randy-slow/reproduce/q...
+  ;;;; TODO: catch permission denied exceptions and emit appropriate warnings. Might be able to get rid of with chicken 5?
   (common:false-on-exception (lambda () (file-exists? path-string))
                              message: (if (not silent)
                                           (conc "Unable to access path: " path-string)
                                           #f)
                              ))
 
 (define (common:directory-exists? path-string)
-  ;;;; TODO: catch permission denied exceptions and emit appropriate warnings, eg:  system error while trying to access file: "/nfs/pdx/disks/icf_env_disk001/bjbarcla/gwa/issues/mtdev/randy-slow/reproduce/q...
+  ;;;; TODO: catch permission denied exceptions and emit appropriate warnings
   (common:false-on-exception (lambda () (directory-exists? path-string))
                              message: (conc "Unable to access path: " path-string)
                              ))
 
 ;; does the directory exist and do we have write access?
@@ -1804,11 +1802,11 @@
 ;;  e.g. key is host and dtype is normalized-load
 ;;
 (define (common:get-cached-info key dtype #!key (age 10))
   (if *toppath*
       (let* ((fullpath (conc *toppath* "/.sysdata/" key "-" dtype ".log"))
-	     (delfile  (lambda ()
+	     (delfile  (lambda (exn)
 			 (debug:print-info 1 *default-log-port* " removing bad file " fullpath ", exn=" exn)
 			 (delete-file* fullpath)
 			 #f)))
 	(if (and (file-exists? fullpath)
 		 (file-read-access? fullpath))
@@ -1827,15 +1825,15 @@
 				    0)
 				  (file-change-time fullpath)))))
 	       (if (< real-age age)
 		   (handle-exceptions
 		       exn
-		     (delfile)
+		     (delfile exn)
 		     (let* ((res (with-input-from-file fullpath read)))
 		       (if (eof-object? res)
 			   (begin
-			     (delfile)
+			     (delfile "n/a")
 			     #f)
 			   res)))
 		   (begin
 		     (debug:print-info 2 *default-log-port* "file " fullpath
 				       " is too old (" real-age" seconds) to trust, skipping reading it")