Index: dashboard-tests.scm
==================================================================
--- dashboard-tests.scm
+++ dashboard-tests.scm
@@ -272,11 +272,11 @@
     (iup:button "Re-run"            
 		#:expand "HORIZONTAL" 
 		#:action (lambda (obj)
 			   (thread-start! 
 			    (make-thread (lambda ()
-					   (ezsteps:run-from testdat stepname #f))
+					   (ezsteps:run-from testdat stepname #t))
 					 (conc "ezstep run single step " stepname)))))
     (iup:button "Re-run and continue"         
 		#:expand "HORIZONTAL" 
 		#:action (lambda (obj)
 			   (thread-start!

Index: ezsteps.scm
==================================================================
--- ezsteps.scm
+++ ezsteps.scm
@@ -90,11 +90,11 @@
 				  (vector-set! exit-info 1 exit-status)
 				  (vector-set! exit-info 2 exit-code)
 				  (mutex-unlock! run-mutex)
 				  (if (eq? pid-val 0)
 				      (begin
-					(thread-sleep! 2)
+					(thread-sleep! 1)
 					(processloop (+ i 1))))
 				  ))
 		    (let ((exinfo (vector-ref exit-info 2))
 			  (logfna (if logpro-used (conc stepname ".html") "")))
 		      ;; testing if procedures called in a remote call cause problems (ans: no or so I suspect)

Index: runconfig.scm
==================================================================
--- runconfig.scm
+++ runconfig.scm
@@ -40,11 +40,14 @@
 	 (if section-dat
 	     (for-each 
 	      (lambda (envvar)
 		(let ((val (cadr (assoc envvar section-dat))))
 		(hash-table-set! whatfound section (+ (hash-table-ref/default whatfound section 0) 1))
-		(if change-env (setenv envvar val))
+		(if (and (string? envvar)
+			 (string? val)
+			 change-env)
+		    (setenv envvar val))
 		(hash-table-set! finaldat envvar val)))
 	      (map car section-dat)))))
      sections)
     (if already-seen
 	(begin

Index: tests.scm
==================================================================
--- tests.scm
+++ tests.scm
@@ -391,11 +391,12 @@
 	 (orig-dir       (current-directory))
 	 (logf-info      (cdb:remote-run db:test-get-logfile-info #f run-id test-name))
 	 (logf           (if logf-info (cadr logf-info) #f))
 	 (path           (if logf-info (car  logf-info) #f)))
     ;; This query finds the path and changes the directory to it for the test
-    (if (directory? path)
+    (if (and (string? path)
+	     (directory? path)) ;; can get #f here under some wierd conditions. why, unknown ...
 	(begin
 	  (debug:print 4 "Found path: " path)
 	  (change-directory path))
 	;; (set! outputfilename (conc path "/" outputfilename)))
 	(print "No such path: " path))