diff --git a/changelog b/changelog
index 001a035..5daec7f 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,4 @@
+20071225 sxw src/interp/bookvol5 fix typo in intloopReadConsole
 20071218 acr src/algebra/axserver.spad fix lastType output re: errors
 20071217 tpd src/algebra/variable.spad ignore regression test gensym (7041)
 20071217 tpd src/algebra/lodo.spad ignore regression test gensym (7042)
diff --git a/src/interp/bookvol5.pamphlet b/src/interp/bookvol5.pamphlet
index f2e570a..d3ebb9b 100644
--- a/src/interp/bookvol5.pamphlet
+++ b/src/interp/bookvol5.pamphlet
@@ -1006,7 +1006,7 @@ will end up as a recursive call to ourselves.
      (|intloopReadConsole| "" n))
    (setq pfx (|intloopPrefix?| ")fi" input))
    (when (and pfx (or (string= pfx ")fi") (string= pfx ")fin")))
-     (throw '|top-level| nil))
+     (throw '|top_level| nil))
    (when (and (equal b "") (setq d (|intloopPrefix?| ")" input)))
      (|setCurrentLine| d) 
      (setq c (|ncloopCommand| d n))