diff --git a/source/APL/IMAGE.alg_m b/source/APL/IMAGE.alg_m
index dfd77f9..0c690fe 100644
--- a/source/APL/IMAGE.alg_m
+++ b/source/APL/IMAGE.alg_m
@@ -159,7 +159,7 @@ COMMENT CHANGE LINE 3050 TO WRITE(PRINT,SF[I]) FOR MEMORY ERROR PROBS.  00013800
      " KIND"),                                                          00015900
     ("SYSTEM ERROR--POINTERS TO DATA TYPES OVERLAP."),                  00016000
     (" ");                                                              00016100
-    WRITE(PRINT,F,I);                                                   00016200
+    WRITE(PRINT,SF[I]);                                                 00016200
     IF I GTR 0 THEN                                                     00016300
         BEGIN                                                           00016400
         INTEGER GT1,GT2,GT3;                                            00016500
@@ -2894,7 +2894,7 @@ INTEGER LASTCONSTANT;                                                   00278900
         INTEGER I,J,M,R;                                                00289400
      J:=1; I:=D.SPF; R:=D.RF+I-1;                                       00289500
     IF I NEQ 0 THEN                                                     00289600
-     FOR M:=T STEP 1 UNTIL R DO J:=J|SP[MOC];                           00289700
+     FOR M:=I STEP 1 UNTIL R DO J:=J|SP[MOC];                           00289700
      FINDSIZE:=J;                                                       00289800
      END PROCEDURE FINDSIZE;                                            00289900
                                                                         00290000
@@ -3463,10 +3463,10 @@ PROCEDURE DISPLAYCHARV(D); VALUE D; REAL D;                             00344700
         WDLINE := (LINESIZE+6) DIV 8 + 1;                               00346300
         IF II:=J-LINESIZE GTR 0 THEN BEGIN                              00346400
             T:= II DIV (I:=LINESIZE-2)+(IF II MOD I=0 THEN 0  ELSE 1);  00346500
-            NWORDS:=((F:=II-(T-1)|T)+6) DIV 8 + 1;                      00346600
+            NWORDS:=((F:=II-(T-1)|I)+6) DIV 8 + 1;                      00346600
         END ELSE BEGIN NWORDS:=((F:=J)+6)DIV 8 + 1; T:=0; END;          00346700
         FOR II:=1 STEP 1 UNTIL NMAT DO BEGIN                            00346800
-            FOR I:=1 STEP I UNTIL K DO BEGIN                            00346900
+            FOR I:=1 STEP 1 UNTIL K DO BEGIN                            00346900
               CC:=0;                                                    00347000
               FOR JJ:=1 STEP 1 UNTIL T DO BEGIN                         00347100
                 TRANSFERSP(OUTOF,SP,L+M DIV 8,BUFFER,0,WDLINE);         00347200