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: ");