Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -2165,13 +2165,16 @@
 	  (exit 1)))))
   
 ;; paths is list of lists ((name path) ... )
 ;;
 (define (common:get-disk-with-most-free-space disks minsize)
-  (let ((best     #f)
+  (let* ((best     #f)
 	(bestsize 0)
-        (min-inodes (or (string->number (if (configf:lookup *configdat* "setup" "min_inodes") (configf:lookup *configdat* "setup" "min_inodes") "0")) 0)))
+        (default-min-inodes-string "1000000")
+        (default-min-inodes (string->number default-min-inodes-string))
+        (min-inodes (or (string->number (if (configf:lookup *configdat* "setup" "min_inodes") (configf:lookup *configdat* "setup" "min_inodes") default-min-inodes-string)) default-min-inodes)))
+
     (for-each 
      (lambda (disk-num)
        (let* ((dirpath    (cadr (assoc disk-num disks)))
 	      (freespc    (cond
 			   ((not (directory? dirpath))
@@ -2203,10 +2206,11 @@
 			    -1)
 			   (else
 			    (get-free-inodes dirpath))))
              ;;(free-inodes (get-free-inodes dirpath))
              )
+             (debug:print 2 *default-log-port* "INFO: disk " disk-num " path " dirpath " free space " freespc " free inodes " free-inodes)
 	 (if (and (> freespc bestsize)(> free-inodes min-inodes ))
 	     (begin
 	       (set! best     (cons disk-num dirpath))
 	       (set! bestsize freespc)))
         ;;(print "Processing: " disk-num " bestsize: " bestsize " best: " best " freespc: " freespc " min-inodes: " min-inodes " free-inodes: " free-inodes)

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -2336,16 +2336,17 @@
                                         ;; NOTE: This is suboptimal as the testdata will be used later and the state/status may have changed ...
                                         (if (null? tal)
                                             (loop new-test-dat tal)
                                             (loop (car tal)(append tal (list new-test-dat)))))
                                       (begin
-                                        (set! lasttpath (db:test-get-rundir new-test-dat)) ;; remember this path for run removal
-                                        (if (file-exists? lasttpath) 
-                                          (set! lastrealpath (resolve-pathname lasttpath))
-                                          (set! lastrealpath lasttpath)
+                                        (if (and (not (string=  (db:test-get-rundir new-test-dat) "/tmp/badname")) (file-exists? (db:test-get-rundir new-test-dat)))
+                                          (begin
+                                            (set! lasttpath (db:test-get-rundir new-test-dat)) ;; remember this path for run removal
+                                            (set! lastrealpath (resolve-pathname lasttpath))
+                                            (runs:remove-test-directory new-test-dat mode) ;; 'remove-all)
+                                          )
                                         )
-                                        (runs:remove-test-directory new-test-dat mode) ;; 'remove-all)
 
                                         (if (not (null? tal))
                                             (loop (car tal)(cdr tal)))))))
 				(rmt:update-run-stats run-id (rmt:get-raw-run-stats run-id)))
                                ((kill-runs)
@@ -2420,10 +2421,11 @@
 	   ;; remove the run if zero tests remain
 	   (if (eq? action 'remove-runs)
 	       (let* ((run-id   (db:get-value-by-header run header "id")) ;; NB// masks run-id from above?
                       (remtests (mt:get-tests-for-run run-id #f '("DELETED") '("n/a") not-in: #t)))
 		 (if (null? remtests) ;; no more tests remaining
+
          ;; Remove the last dir from the path.
          ;; And same for the link-resolved path
 		     (let* ((dparts  (string-split lasttpath "/"))
 			      (linkspath (conc "/" (string-intersperse (take dparts (- (length dparts) 1)) "/")))
             (real-dparts (string-split lastrealpath "/"))