runtime/global (write-to-string): missing arg

diff --git a/src/runtime/global.scm b/src/runtime/global.scm
index 7d7bef281e0ecdbb07c8d2424f53c80514fe2be0..a4c156b4448504a2fde9960a831f6f060b1aed2e 100644 (file)
--- a/src/runtime/global.scm
+++ b/src/runtime/global.scm
@@ -149,10 +149,12 @@ USA.
 (define with-values call-with-values)
 
 (define (write-to-string object #!optional max)
-  ((if (or (default-object? max) (not max))
-       call-with-output-string
-       call-with-truncated-output-string)
-   (lambda (port) (write object port))))
+  (if (or (default-object? max) (not max))
+      (call-with-output-string
+       (lambda (port) (write object port)))
+      (call-with-truncated-output-string
+       max
+       (lambda (port) (write object port)))))
 \f
 (define (pa procedure)
   (guarantee procedure? procedure 'PA)