diff --git a/Ide/EdClient.icl b/Ide/EdClient.icl
index 3037f0561d4048497a38fe4939d80c8653f18011..2e15643a7212d6f25abee659b3c00c76829fbe87 100644
--- a/Ide/EdClient.icl
+++ b/Ide/EdClient.icl
@@ -851,7 +851,7 @@ where
 			= doit (inc i) s l [c:m] (safemod (dec n) tabwidth)
 	
 		safemod x m
-			# s = x mod m
+			# s = x rem m
 			| s <= 0 = s + m
 			= s
 		
diff --git a/Ide/PmDialogues.icl b/Ide/PmDialogues.icl
index f13339d5819ae0281c49fbff0fbe9f22a2a2402a..cbfd93f48272ec812937d820dc118a8c5f836729 100644
--- a/Ide/PmDialogues.icl
+++ b/Ide/PmDialogues.icl
@@ -821,8 +821,8 @@ IntToMemSize mem
 		=  kilomemstr;
 		=  memstr;
 	where 
-		mega		= mem mod Mega  == 0;
-		kilo		= mem mod Kilo  == 0;
+		mega		= mem rem Mega  == 0;
+		kilo		= mem rem Kilo  == 0;
 		megamemstr	= toString (mem / Mega)  +++ "M";
 		kilomemstr	= toString (mem / Kilo)  +++ "K";
 		memstr		= toString mem;
@@ -926,7 +926,7 @@ FixedPointToString n
 		= toString (n>>8);
 where
 		first_digit=fraction / 10;
-		second_digit=fraction mod 10;
+		second_digit=fraction rem 10;
 		fraction=toInt (toReal (n bitand 255) * 100.0 / 256.0);
 
 //-- path fiddling utils
diff --git a/Pm/PmAbcMagic.icl b/Pm/PmAbcMagic.icl
index 46d61f36c91d462d1f4f3573d324c83176c5a86e..9582475f29cecac9d3f32c6bc52c585466a10c25 100644
--- a/Pm/PmAbcMagic.icl
+++ b/Pm/PmAbcMagic.icl
@@ -213,7 +213,7 @@ AC_Add path date info abccache
 	#! c = {c & [i] = newstuff}
 	=	{ abccache
 		& cache = c
-		, curi = (inc i) mod ABCCacheSize
+		, curi = (inc i) rem ABCCacheSize
 		, maxi = if (m < (dec ABCCacheSize)) i m
 		}
 where
diff --git a/Util/UtilOptions.icl b/Util/UtilOptions.icl
index 979c2165dd03aa12742d3225cb34bb4d025de3a0..6fe2547b0693d0a88a00080ea8e176fe0623733b 100644
--- a/Util/UtilOptions.icl
+++ b/Util/UtilOptions.icl
@@ -285,7 +285,7 @@ ReadOptionsFile file
 					| string.[offset] == ' '
 						=	indentation (offset+1) (indent+1) string
 					| string.[offset] == '\t'
-						=	indentation (offset+1) (indent + (TabSize - (indent mod TabSize))) string
+						=	indentation (offset+1) (indent + (TabSize - (indent rem TabSize))) string
 					| otherwise
 						=	(indent, offset)