diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 9d6dd505a..33c7935e3 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,8 @@
+2006-01-13  Neil Jerram  <neil@ossau.uklinux.net>
+
+	* boot-9.scm (repl-reader): Use value of current-reader fluid to
+	do the read, if set.  (Thanks to Ludovic Courtès for the patch.)
+
 2005-12-14  Neil Jerram  <neil@ossau.uklinux.net>
 
 	* boot-9.scm (load-module): Support an optional custom reader arg,
diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 775b8509c..dd8ac4503 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -2540,7 +2540,7 @@
     (display prompt)
     (force-output)
     (run-hook before-read-hook)
-    (read (current-input-port))))
+    ((or (fluid-ref current-reader) read) (current-input-port))))
 
 (define (scm-style-repl)