@@ -1435,19 +1435,19 @@
 	 (out-dir   (db:test-get-rundir test-dat))
 	 (status-file  (conc out-dir "/.final-status"))
    )
     ;; first verify we are able to write the output file
     (if (not (file-write-access? out-dir))
-	    (debug:print 0 *default-log-port* "ERROR: cannot write .final-status to " out-dir)
-	    (let* 
-         ((outp      (open-output-file status-file))
+	(debug:print 0 *default-log-port* "ERROR: cannot write .final-status to " out-dir)
+	(let* ((outp      (open-output-file status-file))
 	       (status    (db:test-get-status   test-dat))
-         (state     (db:test-get-state    test-dat)))
-        (fprintf outp "~S\n" state) 
-        (fprintf outp "~S\n" status) 
-        (close-output-port outp)))))
-
+	       (state     (db:test-get-state    test-dat)))
+	  (with-output-to-port outp
+	    (lambda ()
+	      (print state) ;; printf was putting in ", not sure why but that was a hassle in other contexts
+	      (print status)))
+	  (close-output-port outp)))))
 
 ;; summarize test in to a file test-summary.html in the test directory
 ;;
 (define (tests:summarize-test run-id test-id)
   (let* ((test-dat  (rmt:get-test-info-by-id run-id test-id))