diff --git a/mps/code/table.c b/mps/code/table.c
index 772e45d9d30..b7ba512d270 100644
--- a/mps/code/table.c
+++ b/mps/code/table.c
@@ -65,7 +65,7 @@ static size_t sizeFloorLog2(size_t size)
 static ulong TableHash(Word key)
 {
   /* Shift some randomness into the low bits. */
-  return (key >> 10) + key;
+  return (ulong)((key >> 10) + key);
 }