diff --git a/tools/xem/ALGOLXEM.alg_m b/tools/xem/ALGOLXEM.alg_m
index 059cff3..7763eb7 100644
--- a/tools/xem/ALGOLXEM.alg_m
+++ b/tools/xem/ALGOLXEM.alg_m
@@ -3293,7 +3293,7 @@ COMMENT  "BLANKET" BLANKS OUT N+1 WORDS IN "THERE";                     09000000
       P;                                                                09655200          
     H:= TIME1 DIV 216000;                                               09715000=01828000=
     MN:= (TIME1 DIV 3600) MOD 60;                                       09720000=01828000=
-    REPLACE P:POINTER(EBCDICBUFF,8) BY CODE.TITLE;                      09725000=01828500=
+    REPLACE P:POINTER(EBCDICBUFF,8) BY CODE.LTITLE;                     09725000=01828500=
     N2:= MIN(OFFSET(P)-1, 118);                                         09730000=01828500=
     WRITE(LINE,                                                         09735000=01829100=
  $ SET OMIT = NOT ALGOL                                                 09735100=01829900=
@@ -3312,10 +3312,10 @@ COMMENT  "BLANKET" BLANKS OUT N+1 WORDS IN "THERE";                     09000000
            IF H >= 12 THEN "PM." ELSE "AM.",                            09735700=01835000=
            (120-N2) DIV 2, N2, POINTER(EBCDICBUFF,8),                   09740000=01835550=
            (120-N2) DIV 2, N2);                                         09745000          
-    REPLACE P:POINTER(EBCDICBUFF,8) BY CARD.TITLE;                      09745100          
+    REPLACE P:POINTER(EBCDICBUFF,8) BY CARD.LTITLE;                     09745100          
     N2:= MIN(OFFSET(P)-1, 106);                                         09745200          
     WRITE(LINE, <X*,"SOURCE FILE: ",A*,//>,                             09745300          
-           (120-N2) DIV 2, N2, POINTER(EBCDICBUFF,8));                  09745400          
+           (107-N2) DIV 2, N2, POINTER(EBCDICBUFF,8));                  09745400          
     NOHEADING:= FALSE;                                                  09760000=01837000=
     END OF DATIME;                                                      09765000=01837000=
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%09770000=01837000=
diff --git a/tools/xem/ESPOLXEM.alg_m b/tools/xem/ESPOLXEM.alg_m
index 353bf09..1eccf58 100644
--- a/tools/xem/ESPOLXEM.alg_m
+++ b/tools/xem/ESPOLXEM.alg_m
@@ -2738,7 +2738,7 @@ COMMENT  "BLANKET" BLANKS OUT N+1 WORDS IN "THERE";                     07315000
       P;                                                                07730000          
     H:= TIME1 DIV 216000;                                               07780000=01828000=
     MN:= (TIME1 DIV 3600) MOD 60;                                       07785000=01828000=
-    REPLACE P:POINTER(EBCDICBUFF,8) BY DISK.TITLE;                      07790000=01828500=
+    REPLACE P:POINTER(EBCDICBUFF,8) BY DISK.LTITLE;                     07790000=01828500=
     N2:= MIN(OFFSET(P)-1, 118);                                         07795000=01828500=
     WRITE(LINE,                                                         07800000=01835500=
            <X18, "BURROUGHS B-5700 ESPOLXEM COMPILER MARK ",            07802000          
@@ -2753,7 +2753,7 @@ COMMENT  "BLANKET" BLANKS OUT N+1 WORDS IN "THERE";                     07315000
            IF H >= 12 THEN "PM." ELSE "AM.",                            07820000=01835000=
            (120-N2) DIV 2, N2, POINTER(EBCDICBUFF,8),                   07825000=01835550=
            (120-N2) DIV 2, N2);                                         07826000          
-    REPLACE P:POINTER(EBCDICBUFF,8) BY CARD.TITLE;                      07826100          
+    REPLACE P:POINTER(EBCDICBUFF,8) BY CARD.LTITLE;                     07826100          
     N2:= MIN(OFFSET(P)-1, 106);                                         07826200          
     WRITE(LINE, <X*,"SOURCE FILE: ",A*,//>,                             07826300          
            (107-N2) DIV 2, N2, POINTER(EBCDICBUFF,8));                  07826400