Fix thinko in last change.

diff --git a/tests/unit-testing.scm b/tests/unit-testing.scm
index 0d55eb1fe8a49065c55b257a46e1ff46316f50d3..73a50a4c2ae4f532c596ca147d974f30938b4a1d 100644 (file)
--- a/tests/unit-testing.scm
+++ b/tests/unit-testing.scm
@@ -131,7 +131,7 @@ USA.
                   (write-string " sub-tests" port)
                   (newline port)))))
          ((> n-sub-tests 0)
-          (report-sub-test-result name
+          (report-sub-test-result (write-to-string name)
                                   (cdar sub-test-results)
                                   port))))
   ;; Value is true iff all tests passed.
@@ -140,7 +140,7 @@ USA.
         sub-test-results))
 
 (define (report-sub-test-result name failure port)
-  (write name port)
+  (write-string name port)
   (write-string ": " port)
   (cond ((not failure)
         (write-string "passed" port))