diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 377746824..93c861b2c 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,8 @@
+1998-07-21  Mikael Djurfeldt  <mdj@mdj.nada.kth.se>
+
+	* readline.scm (make-readline-port): Set prompt string to "... "
+	after first read line.  (Thanks to Richard Polton.)
+
 1998-07-19  Jim Blandy  <jimb@zwingli.cygnus.com>
 
 	* lineio.scm (make-line-buffering-input-port): Don't use
diff --git a/ice-9/readline.scm b/ice-9/readline.scm
index 29e36f203..4426600dd 100644
--- a/ice-9/readline.scm
+++ b/ice-9/readline.scm
@@ -53,6 +53,7 @@
 				     input-port
 				     output-port
 				     read-hook))
+		    (set! prompt "... ")
 		    (set! string-index 0)
 		    (if (not (eof-object? read-string))
 			(begin