From 3b922f1292bf9bdbf45f51565005330d7cbdf4e7 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
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 c3863eb2b..9b913db36 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: ");
-- 
2.34.1