diff --git a/lib/chibi/time.sld b/lib/chibi/time.sld
index 62466fd4..9e16055a 100644
--- a/lib/chibi/time.sld
+++ b/lib/chibi/time.sld
@@ -39,6 +39,6 @@
     (define-syntax time
       (syntax-rules ()
         ((time expr)
-         (time (call-with-output-string (lambda (out) (write expr out))) expr))
+         (time (call-with-output-string (lambda (out) (write 'expr out))) expr))
         ((time name expr)
          (time* name (lambda () expr)))))))