diff --git a/source/B65ESPOL/SOURCE.alg_m b/source/B65ESPOL/SOURCE.alg_m index aba65af..fce38b1 100644 --- a/source/B65ESPOL/SOURCE.alg_m +++ b/source/B65ESPOL/SOURCE.alg_m @@ -4772,7 +4772,7 @@ COMMENT FINISH CODE AND COMPLETE BRANCH. AN IRW REFEREN- 60635000 CING PCW PLACED IN STACK; 60636000 END NAME CALL EXPRESSION; 60637000 IF NOT BOOLEAN(T1.[01:01])%THEN IT"S NOT AN ARRAY. 60638000 - THEN ACLASS~(IF T1!EVTYPE THEN T1~BOOID ELSE 60638300 + THEN ACLASS~(IF T1!EVTYPE THEN T1+BOOID ELSE 60638300 EVENTID) 60638600 ELSE 60638800 COMMENT *** EXPRSS RETURNS TYPE