From 3fec1232dad60d200825342db97b8ad0133fa8d4 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Thu, 9 Jun 1988 09:16:46 +0000
Subject: [PATCH] fixed problem with ReOrganize

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

diff --git a/lang/m2/libm2/Storage.mod b/lang/m2/libm2/Storage.mod
index 0fa80ef6c..49c089968 100644
--- a/lang/m2/libm2/Storage.mod
+++ b/lang/m2/libm2/Storage.mod
@@ -203,7 +203,7 @@ IMPLEMENTATION MODULE Storage;
   BEGIN
 	a:= MyAllocate(size);
 	IF a # NIL THEN
-		DEALLOCATE(a, size);
+		Deallocate(a, size);
 		RETURN TRUE;
 	END;
 	RETURN FALSE;
@@ -324,9 +324,12 @@ IMPLEMENTATION MODULE Storage;
 					BNEXT := Llist;
 					Llist := b;
 				END;
+				b := ADDRESS(b) + (BSIZE+1) * UNIT;
+			ELSE
+				b := ADDRESS(b) + 
+					((BSIZE + (UNIT - 1)) DIV UNIT + 1) * UNIT;
 			END;
 		END;
-		b := ADDRESS(b) + (b^.BSIZE+1) * UNIT;
 	END;
   END ReOrganize;
 
-- 
2.34.1