diff --git a/vm/layouts.hpp b/vm/layouts.hpp index 7975f4ca92..e60201ed5d 100644 --- a/vm/layouts.hpp +++ b/vm/layouts.hpp @@ -104,7 +104,7 @@ inline static fixnum untag_fixnum(cell tagged) { } inline static cell tag_fixnum(fixnum untagged) { - return (untagged << TAG_BITS) | FIXNUM_TYPE; + return ( (cell)untagged << TAG_BITS) | FIXNUM_TYPE; } #define NO_TYPE_CHECK static const cell type_number = TYPE_COUNT