diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index d0c300691..454163392 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,7 @@
+Fri Oct 30 15:15:37 1998  Mikael Djurfeldt  <mdj@mdj.nada.kth.se>
+
+	* readline.scm (make-readline-port): Bugfixed last change...
+
 1998-10-28  Mikael Djurfeldt  <mdj@barbara.nada.kth.se>
 
 	* readline.scm (make-readline-port): Don't set prompt to "... " if
diff --git a/ice-9/readline.scm b/ice-9/readline.scm
index e851ba355..a2b326dc4 100644
--- a/ice-9/readline.scm
+++ b/ice-9/readline.scm
@@ -53,13 +53,13 @@
 				     input-port
 				     output-port
 				     read-hook))
-		    (if (not (zero? (string-length read-string)))
-			(set! prompt "... "))
 		    (set! string-index 0)
 		    (if (not (eof-object? read-string))
 			(begin
 			  (or (string=? read-string "")
-			      (add-history read-string))
+			      (begin
+				(add-history read-string)
+				(set! prompt "... ")))
 			  (get-character))
 			read-string)))
 		 (else