fix: CHR expects a CARDINAL parameter

diff --git a/lang/m2/test/Thalmann/StoreFetch.mod b/lang/m2/test/Thalmann/StoreFetch.mod
index c3863eb..9b913db 100644 (file)
--- 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: ");