@@ -26,10 +26,11 @@
 (declare (uses tests))
 (declare (uses genexample))
 (declare (uses daemon))
 (declare (uses db))
 (declare (uses sdb))
+(declare (uses filedb))
 
 (define *db* #f) ;; this is only for the repl, do not use in general!!!!
 
 (include "common_records.scm")
 (include "key_records.scm")
@@ -627,11 +628,11 @@
 				     (equal? (db:test-get-state test)  "NOT_STARTED")))
 			    (begin
 			      (print "         cpuload:  " (db:test-get-cpuload test)
 				     "\n         diskfree: " (db:test-get-diskfree test)
 				     "\n         uname:    " (sdb:qry 'getstr (db:test-get-uname test))
-				     "\n         rundir:   " (sdb:qry 'getstr (db:test-get-rundir test))
+				     "\n         rundir:   " (filedb:get-path *fdb* (db:test-get-rundir test))
 				     )
 			      ;; Each test
 			      ;; DO NOT remote run
 			      (let ((steps (db:get-steps-for-test #f (db:test-get-id test))))
 				(for-each 
@@ -1194,11 +1195,12 @@
 ;; this is the socket if we are a client
 ;; (if (and *runremote*
 ;; 	 (socket? *runremote*))
 ;;     (close-socket *runremote*))
 
-(sdb:qry 'finalize! #f)
+(if sdb:qry (sdb:qry 'finalize #f))
+(if *fdb*   (filedb:finalize-db! *fdb*))
 
 (if (not *didsomething*)
     (debug:print 0 help))
 
 ;; (if *runremote* (rpc:close-all-connections!))