From 134707698839511a5fa30d14faf3316caf3680b6 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Wed, 8 Jun 1988 09:22:31 +0000
Subject: [PATCH] changed behaviour of Allocate(..., 0)

---
 lang/m2/libm2/Storage.mod | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lang/m2/libm2/Storage.mod b/lang/m2/libm2/Storage.mod
index 15200a07d..0fa80ef6c 100644
--- a/lang/m2/libm2/Storage.mod
+++ b/lang/m2/libm2/Storage.mod
@@ -67,7 +67,7 @@ IMPLEMENTATION MODULE Storage;
 	END;
 	nu := (size + (UNIT-1)) DIV UNIT;
 	IF nu = 0 THEN
-		RETURN NIL;
+		nu := 1;
 	END;
 	IF nu <= NLISTS THEN
 		b := nu;
-- 
2.34.1