diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index f50277983..74e941028 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,5 +1,9 @@
 2006-02-04  Neil Jerram  <neil@ossau.uklinux.net>
 
+	* boot-9.scm (try-module-autoload): Make sure that module code is
+	loaded with the default reader (current-reader #f).  Thanks to
+	Ludovic Courtès for pointing this problem out.
+
 	* stack-catch.scm (stack-catch): Use catch pre-unwind handler
 	instead of lazy-catch.
 
diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 17826a096..7da005c34 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -2180,7 +2180,8 @@
 			    (load-file load-compiled full)))
 		      ((%search-load-path file)
 		       => (lambda (full)
-			    (load-file primitive-load full))))))
+			    (with-fluids ((current-reader #f))
+			      (load-file primitive-load full)))))))
 	    (lambda () (set-autoloaded! dir-hint name didit)))
 	   didit))))