diff --git a/src/reader.c b/src/reader.c
index 29e3873a..40f367ee 100644
--- a/src/reader.c
+++ b/src/reader.c
@@ -199,8 +199,9 @@ read_env (SCM a)
 SCM
 reader_read_block_comment (int s, int c)
 {
-  if (c == s && peekchar () == '#')
-    return readchar ();
+  if (c == s)
+    if (peekchar () == '#')
+      return readchar ();
   return reader_read_block_comment (s, readchar ());
 }