diff --git a/ice-9/rw.scm b/ice-9/rw.scm
index bcfeb9591..418eb08e3 100644
--- a/ice-9/rw.scm
+++ b/ice-9/rw.scm
@@ -47,6 +47,6 @@
 ;;; (scsh rw).
 
 (define-module (ice-9 rw)
-  :export (read-string!/partial))
+  :export (read-string!/partial write-string/partial))
 
 (%init-rw-builtins)