@@ -2339,12 +2339,11 @@ (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) - ) + (set! lastrealpath lasttpath)) (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)))