diff --git a/lib/scheme/write.sld b/lib/scheme/write.sld
index 7297bc44..4a2d7390 100644
--- a/lib/scheme/write.sld
+++ b/lib/scheme/write.sld
@@ -1,8 +1,10 @@
 
 (define-library (scheme write)
   (import (rename (chibi) (write write-simple) (display display-simple))
-          (rename (srfi 38) (write/ss write)))
-  (export display write write-simple)
+          (rename (srfi 38) (write/ss write-shared)))
+  (export display write write-shared write-simple)
   (begin
     (define (display x . o)
-      (apply (if (or (string? x) (char? x)) display-simple write) x o))))
+      (apply (if (or (string? x) (char? x)) display-simple write) x o))
+    (define (write x . o)
+      (write-shared x (if (pair? o) (car o) (current-output-port)) #t))))