From e3a1bdee64cc2e7c7d3201ec8f63b39225d90483 Mon Sep 17 00:00:00 2001
From: ceriel <devnull@localhost>
Date: Thu, 9 Feb 1989 15:43:28 +0000
Subject: [PATCH] fix: CHR expects a CARDINAL parameter

---
 lang/m2/test/Thalmann/StoreFetch.mod | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lang/m2/test/Thalmann/StoreFetch.mod b/lang/m2/test/Thalmann/StoreFetch.mod
index c3863eb2..9b913db3 100644
--- a/lang/m2/test/Thalmann/StoreFetch.mod
+++ b/lang/m2/test/Thalmann/StoreFetch.mod
@@ -75,7 +75,7 @@ MODULE StoreFetch;
 	REPEAT
 		INC(i);
 		Remove(OrdOfChar);
-		String[i] := CHR(OrdOfChar);
+		String[i] := CHR(CARDINAL(OrdOfChar));
 	UNTIL String[i] = eos;
 	WriteLn;
 	WriteString("After transfer: ");