diff --git a/guile-readline/ChangeLog b/guile-readline/ChangeLog
index 1fad43605..4c227c692 100644
--- a/guile-readline/ChangeLog
+++ b/guile-readline/ChangeLog
@@ -1,3 +1,8 @@
+2001-01-18  Neil Jerram  <neil@ossau.uklinux.net>
+
+	* readline.scm (make-readline-port): Make readline port
+	input-only.
+
 2000-12-12  Dirk Herrmann  <D.Herrmann@tu-bs.de>
 
 	* readline.scm (activate-readline):  Lookup 'use-emacs-interface
diff --git a/guile-readline/readline.scm b/guile-readline/readline.scm
index 23adf4387..cbb0c4308 100644
--- a/guile-readline/readline.scm
+++ b/guile-readline/readline.scm
@@ -83,8 +83,8 @@
 		    (set! string-index (+ 1 string-index))
 		    res))))))	      
       (make-soft-port
-       (vector write-char display #f get-character #f)
-       "rw"))))
+       (vector #f #f #f get-character #f)
+       "r"))))
 
 ;;; We only create one readline port.  There's no point in having
 ;;; more, since they would all share the tty and history ---