diff --git a/lib/srfi/38.scm b/lib/srfi/38.scm
index 2e8169e3..5e9a0fb6 100644
--- a/lib/srfi/38.scm
+++ b/lib/srfi/38.scm
@@ -94,6 +94,8 @@
                          (display " " out)
                          (wr (car ls))
                          (lp (cdr ls)))))
+                      (shared?  ;; shared dotted tail
+                       (write ls out))
                       (else
                        (display " . " out)
                        (wr ls))))))