diff --git a/scans/s6.s b/scans/s6.s
index 0072349..4433457 100644
--- a/scans/s6.s
+++ b/scans/s6.s
@@ -317,7 +317,7 @@ cskp:
       lac 9f+t+3
       jms dskwr
    4:
-"** 01-s1.pdf page 38
+"** 01-s1.pdf page 39
       lac 9f+t+2
       jmp iread i
 3:
diff --git a/src/sys/s6.s b/src/sys/s6.s
index 723d561..7881c6d 100644
--- a/src/sys/s6.s
+++ b/src/sys/s6.s
@@ -338,7 +338,7 @@ cskp:					" literal for store to iwrite
       lac 9f+t+3
       jms dskwr
    4:
-"** 01-s1.pdf page 38
+"** 01-s1.pdf page 39
       lac 9f+t+2
       jmp iread i
 3: