[Oberon] On Close in ORG.Mod.txt

[Srinivas Nayak]

Dear All,

In ORG.Mod.txt we see

   PROCEDURE Close*(VAR modid: ORS.Ident; key, nofent: LONGINT);

...
         i := (i+4) DIV 4 * 4; INC(comsize, i+4)

...


Is this correct?

Should it be
         i := (i+3) DIV 4 * 4; INC(comsize, i+4)
  ?



With thanks and best regards,

Yours sincerely,
Srinivas Nayak

Home: http://www.mathmeth.com/sn/
Blog: http://srinivas-nayak.blogspot.in/