diff --git a/SYMBOL/DCMCP.esp_m b/SYMBOL/DCMCP.esp_m
index d3e8a7a..1ba2619 100644
--- a/SYMBOL/DCMCP.esp_m
+++ b/SYMBOL/DCMCP.esp_m
@@ -19828,7 +19828,7 @@ SVSEARCH:     IF (LOC:=LINK.[CF])=0 THEN GO TO ROCKABYE;                24033200
                    FORGETSPACE(Y+2);%                                   24035900        
               END;%                                                     24036000        
         END ELSE                                                        24036100        
-        OF SAVEF}63 OR TOGLE.MEMNO=0 THEN                               24036125        
+        IF SAVEF}63 OR TOGLE.MEMNO=0 THEN                               24036125        
         BEGIN% ALLOCATE ON "SPACE AVAILABLE" BASIS                      24036150        
 START:%                                                                 24036200        
               IF (LINK ~ POLISH(M[AVAIL], 0, SIZE, CFX, LLL,%           24036300        
@@ -20608,7 +20608,7 @@ PROCEDURE LIBRARYTRANSFER;                                              28200000
 %                                                                       28200108        
 %   TOGS.[21:1] (BHS)              INDICATES BAD HEADER                 28200110        
 %        [23:1] (FORKED)           NOT ORIGINATING LIBMAIN/DISK         28200112        
-%        [26:1] (OF)               CURRENT <MFID>/<FID> HAS BEEN        28200114        
+%        [26:1] (OE)               CURRENT <MFID>/<FID> HAS BEEN        28200114        
 %                                  OPENED EXCLUSIVE                     28200116        
 %                                                                       28200118        
 %        [28:1] (SOMECOPIED)       AT LEAST ONE FILE HAS BEEN           28200120        
@@ -20664,7 +20664,7 @@ BEGIN                                                                   28200200
          BHS            = TOGS.[21:1]#,                                 28208400        
          FORKED         = TOGS.[23:1]#,                                 28208600        
          B6500          = TOGS.[24:1]#,                                 28208800        
-         OF             = TOGS.[26:1]#,                                 28209000        
+         OE             = TOGS.[26:1]#,                                 28209000        
          SOMECOPIED     = TOGS.[28:1]#,                                 28209100        
          REELSW         = TOGS.[33:1]#,                                 28209200        
          SKIPDIR        = TOGS.[35:1]#,                                 28209400        
@@ -20789,7 +20789,7 @@ PRE:          SPOUT(T); T:=1;                                           28219200
           IF IOD[W].[24:1]                                              28234800        
            THEN TMP:=TMP+B6500                                          28235000        
            ELSE BEGIN SIZE:=SIZE+B6500; WRDSZ[W]:=SIZE; END;            28235200        
-          IOREQUEST(-(IOD[W]:=9AROW[W] INX TMP)&                        28235400        
+          IOREQUEST(-(IOD[W]:=(AROW[W] INX TMP)&                        28235400        
                     SIZE[8:38:10]&                                      28235600        
                     TINU[U][3:3:5]&                                     28235800        
                     (NOT IOD[W])[24:24:1]) OR @2017700000,              28236000