diff --git a/books/bookvol8.pamphlet b/books/bookvol8.pamphlet
index 761a492..50acd0b 100644
--- a/books/bookvol8.pamphlet
+++ b/books/bookvol8.pamphlet
@@ -2929,6 +2929,7 @@ int main(void) {
 #ifdef DEBUG
         fprintf(stderr,"Reading child viewport...\n");
 #endif
+        viewCommand = viewportClosing; /* close if read failed  */
         readViewport(slot,&viewCommand,intSize);
         switch (viewCommand) {
         case pick2D:
diff --git a/changelog b/changelog
index 8d9986d..2c5cacc 100644
--- a/changelog
+++ b/changelog
@@ -1,6 +1,7 @@
-20080620 src/input/Makefile test direct product multiply
+20080621 wxh books/bookvol8 default to close if read fails
+20080620 tpd src/input/Makefile test direct product multiply
 20080620 tpd src/input/directproduct.input test direct product multiply
-20080620 wxh src/algebra/vector.spad handle direct product multiply
+20080620 wsp src/algebra/vector.spad handle direct product multiply
 20080619 rhx src/interp/ax.boot document makeAxExportForm
 20080619 tpd books/bookvol8 systematically index chunks
 20080619 tpd readme add Anatoly Raportirenko