Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -771,30 +771,34 @@
 		      ;;   (tdb       (db:open-test-db run-dir)))
 		      (debug:print-info 4 "test=" test) ;;   " (db:test-get-testname test) " id: " (db:test-get-id test) " " item-path " action: " action)
 		      (case action
 			((remove-runs) ;; the tdb is for future possible. 
 			 (open-run-close db:delete-test-records db #f (db:test-get-id test))
-			 (debug:print-info 1 "Attempting to remove dir " real-dir " and link " run-dir)
+			 (debug:print-info 1 "Attempting to remove " (if real-dir (conc " dir " real-dir " and ") "") " link " run-dir)
 			 (if (and real-dir 
 				  (> (string-length real-dir) 5)
 				  (file-exists? real-dir)) ;; bad heuristic but should prevent /tmp /home etc.
 			     (begin ;; let* ((realpath (resolve-pathname run-dir)))
 			       (debug:print-info 1 "Recursively removing " real-dir)
 			       (if (file-exists? real-dir)
 				   (if (> (system (conc "rm -rf " real-dir)) 0)
 				       (debug:print 0 "ERROR: There was a problem removing " real-dir " with rm -f"))
-				   (debug:print 0 "WARNING: test run dir " real-dir " appears to not exist")))
-			     (debug:print 0 "WARNING: directory " real-dir " does not exist"))
+				   (debug:print 0 "WARNING: test dir " real-dir " appears to not exist or is not readable")))
+			     (if real-dir 
+				 (debug:print 0 "WARNING: directory " real-dir " does not exist")
+				 (debug:print 0 "WARNING: no real directory corrosponding to link " run-dir ", nothing done")))
 			 (if (symbolic-link? run-dir)
 			     (begin
 			       (debug:print-info 1 "Removing symlink " run-dir)
 			       (delete-file run-dir))
 			     (if (directory? run-dir)
 				 (if (> (directory-fold (lambda (f x)(+ 1 x)) 0 run-dir) 0)
 				     (debug:print 0 "WARNING: refusing to remove " run-dir " as it is not empty")
 				     (delete-directory run-dir)) ;; it should be empty by here BUG BUG, add error catch
-				 (debug:print 0 "ERROR: refusing to remove " run-dir " as it either doesn't exist or is not a symlink or directory")
+				 (if run-dir
+				     (debug:print 0 "WARNING: not removing " run-dir " as it either doesn't exist or is not a symlink")
+				     (debug:print 0 "NOTE: the run dir for this test is undefined. Test may have already been deleted."))
 				 )))
 			((set-state-status)
 			 (debug:print-info 2 "new state " (car state-status) ", new status " (cadr state-status))
 			 (open-run-close db:test-set-state-status-by-id db (db:test-get-id test) (car state-status)(cadr state-status) #f)))))
 		  (sort tests (lambda (a b)(let ((dira (db:test-get-rundir a))