diff --git a/piclib/built-in.scm b/piclib/built-in.scm
index 83c5b716..55ac8686 100644
--- a/piclib/built-in.scm
+++ b/piclib/built-in.scm
@@ -693,6 +693,27 @@
 
 (export call-with-port)
 
+(define-library (scheme write)
+  (import (scheme base))
+
+  ;; FIXME
+  (define write write-simple)
+  (define write-shared write-simple)
+
+  (define (display obj . opts)
+    (let ((port (if (null? opts) (current-output-port) (car opts))))
+      (cond
+       ((string? obj)
+        (write-string obj port))
+       ((char? obj)
+        (write-char obj port))
+       ((symbol? obj)
+        (write-string (symbol->string obj) port))
+       (else
+        (write obj port)))))
+
+  (export write write-shared display))
+
 ;;; Appendix A. Standard Libraries
 ;; CxR
 (define-library (scheme cxr)