diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 8d00cd988..d0bd11c58 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -787,7 +787,7 @@
                     (if (fluid-ref read-eval?)
                         (eval (read port) (interaction-environment))
                         (error
-                         "#. read expansion found and read-eval? is not #f."))))
+                         "#. read expansion found and read-eval? is #f."))))
 
 
 ;;; {Command Line Options}