Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -527,11 +527,12 @@
     ;; set up the run work area for this test
     (set! diskpath (get-best-disk *configdat*))
     (if diskpath
 	(let ((dat  (create-work-area db run-id test-path diskpath test-name itemdat)))
 	  (set! work-area (car dat))
-	  (set! toptest-work-area (cadr dat)))
+	  (set! toptest-work-area (cadr dat))
+	  (debug:print 2 "INFO: Using work area " work-area))
 	(begin
 	  (set! work-area (conc test-path "/tmp_run"))
 	  (create-directory work-area #t)
 	  (debug:print 0 "WARNING: No disk work area specified - running in the test directory under tmp_run")))
     (set! cmdparms (base64:base64-encode (with-output-to-string