From 7943327f7dd9dfefba2a8b6d8f1182eaa0ecca4a Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Tue, 26 Apr 1988 11:43:23 +0000
Subject: [PATCH] corrected

---
 lang/m2/libm2/Storage.mod | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/lang/m2/libm2/Storage.mod b/lang/m2/libm2/Storage.mod
index 8fde41f8c..e359ef917 100644
--- a/lang/m2/libm2/Storage.mod
+++ b/lang/m2/libm2/Storage.mod
@@ -170,11 +170,9 @@ IMPLEMENTATION MODULE Storage;
 		HALT;
 	END;
 	p := a - UNIT;
-	WITH p^ DO
-		IF BSIZE # ((size + (UNIT - 1)) DIV UNIT) THEN
-			pc := a + size;
-			pc^ := MAGICC;
-		END;
+	IF p^.BSIZE * UNIT # size THEN
+		pc := a + size;
+		pc^ := MAGICC;
 	END;
   END ALLOCATE;
 
-- 
2.34.1