FIX: size + 1 + SetSize - 1 -> size + SetSize

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7272 8c9fc860-2736-0410-a75d-ab315db34111

source/Files.Mod

@@ -245,7 +245,7 @@ TYPE
 		BEGIN
 			SELF.flags := flags; SELF.size := size; SELF.reserved := reserved;
 			IF ~(ReadOnly IN flags) THEN
-				maplen := (size+1+SetSize - 1) DIV SetSize;
+				maplen := (size + SetSize) DIV SetSize;
 				NEW(map, maplen);
 				WHILE maplen > 0 DO DEC(maplen); map[maplen] := {} END;
 				INCL(map[0], 0);	(* reserve sector 0 (illegal to use) *)