diff --git a/tools/CODEDUMP55.alg_m b/tools/CODEDUMP55.alg_m
index 1bc2333..b9d7d0b 100644
--- a/tools/CODEDUMP55.alg_m
+++ b/tools/CODEDUMP55.alg_m
@@ -12,12 +12,14 @@
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%00050000          
 % 2012-04-19  P.KIMPEL                                                  00050010          
 %   ORIGINAL VERSION.                                                   00050011          
+% 2012-07-14  P.KIMPEL                                                  00050020120714PK  
+%   CORRECT USE OF PARAMETER DEFINES.                                   00050021120714PK  
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%00099000          
 BEGIN                                                                   00100000          
 DEFINE                                                                  00100100          
   SECTORSIZE =          30 #,                                           00100200          
-  UNITSOF(V,U) =        (((V)+(U-1)) DIV (U)) #,                        00100300          
-  INCREMENTSOF(V,U) =   (UNITSOF(V,U)*U) #;                             00100400          
+  UNITSOF(V,U) =        (((V)+((U)-1)) DIV (U)) #,                      00100300120714PK  
+  INCREMENTSOF(V,U) =   (UNITSOF(V,U)*(U)) #;                           00100400120714PK  
                                                                         00110000          
 INTEGER                                                                 00120100          
   CODERECSIZE,                                                          00120200