diff --git a/lib/srfi/38.scm b/lib/srfi/38.scm
index 42f70510..180b4fed 100644
--- a/lib/srfi/38.scm
+++ b/lib/srfi/38.scm
@@ -44,7 +44,7 @@
         (cond ((and cell (cdr cell))
                (display prefix out)
                (display "#" out)
-               (write (cdr cell))
+               (write (cdr cell) out)
                (display "#" out))
               (else
                (cond (cell