diff --git a/APL-UW-Kildall/README.txt b/APL-UW-Kildall/README.txt
index d7f8e75..1ab5bab 100644
--- a/APL-UW-Kildall/README.txt
+++ b/APL-UW-Kildall/README.txt
@@ -19,8 +19,7 @@ APL-IMAGE.alg_m
         Tech."
 
     A scan of that listing is available from:
-    http://bitsavers.trailing-edge.com/pdf/georgiaTech/APL-B5500-Listing
-    -19710111.pdf
+    http://bitsavers.org/pdf/georgiaTech/APL-B5500-Listing-19710111.pdf
 
     Transcription was performed jointly by Hans Pufal of Angouleme,
     France and Fausto Saporito of Naples, Italy during August-September
diff --git a/Unisys-Emode-Tools/xem/ALGOLXEM.alg_m b/Unisys-Emode-Tools/xem/ALGOLXEM.alg_m
index d6aad2e..122b150 100644
--- a/Unisys-Emode-Tools/xem/ALGOLXEM.alg_m
+++ b/Unisys-Emode-Tools/xem/ALGOLXEM.alg_m
@@ -1576,11 +1576,11 @@ BOOLEAN PROCEDURE STREAMSCLEQQQ(MBASE, CHR);                            00882000
   REAL CHR;                                                             00882300          
   BEGIN COMMENT                                                         00882400          
       COMPARES THE CURRENT SOURCE CHARACTER AGAINST "CHR" FOR A         00882500          
-      LESS-THAN CONDITION. DOES NOT ADVANCE THE SOURCE INDEX.           00882600          
-      EMULATES TLS.                                                     00882700          
+      LESS-THAN-OR-EQUAL CONDITION. DOES NOT ADVANCE THE SOURCE INDEX.  00882600230111PK  
+      EMULATES TEL.                                                     00882700230111PK  
       ;                                                                 00882800          
   STREAMADJUSTSICHAR;                                                   00882900          
-  STREAMSCLEQQQ:= TFFF:= (BICCOLLATE[STREAMGETSC] < BICCOLLATE[CHR]);   00883000          
+  STREAMSCLEQQQ:= TFFF:= (BICCOLLATE[STREAMGETSC] <= BICCOLLATE[CHR]);  00883000230111PK  
   END STREAMSCLEQ;                                                      00883100          
                                                                         00883200          
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%00883300          
diff --git a/Unisys-Emode-Tools/xem/ESPOLXEM.alg_m b/Unisys-Emode-Tools/xem/ESPOLXEM.alg_m
index d38faea..657c8da 100644
--- a/Unisys-Emode-Tools/xem/ESPOLXEM.alg_m
+++ b/Unisys-Emode-Tools/xem/ESPOLXEM.alg_m
@@ -1468,11 +1468,11 @@ BOOLEAN PROCEDURE STREAMSCLEQQQ(MBASE, CHR);                            02182000
   REAL CHR;                                                             02182300          
   BEGIN COMMENT                                                         02182400          
       COMPARES THE CURRENT SOURCE CHARACTER AGAINST "CHR" FOR A         02182500          
-      LESS-THAN CONDITION. DOES NOT ADVANCE THE SOURCE INDEX.           02182600          
-      EMULATES TLS.                                                     02182700          
+      LESS-THAN-OR-EQUAL CONDITION. DOES NOT ADVANCE THE SOURCE INDEX.  02182600230111PK  
+      EMULATES TEL.                                                     02182700230111PK  
       ;                                                                 02182800          
   STREAMADJUSTSICHAR;                                                   02182900          
-  STREAMSCLEQQQ:= TFFF:= (BICCOLLATE[STREAMGETSC] < BICCOLLATE[CHR]);   02183000          
+  STREAMSCLEQQQ:= TFFF:= (BICCOLLATE[STREAMGETSC] <= BICCOLLATE[CHR]);  02183000230111PK  
   END STREAMSCLEQ;                                                      02183100          
                                                                         02183200          
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%02183300