diff --git a/basis/colors/hsv/hsv.factor b/basis/colors/hsv/hsv.factor
index 194845efd1..afc32e10c9 100644
--- a/basis/colors/hsv/hsv.factor
+++ b/basis/colors/hsv/hsv.factor
@@ -17,7 +17,7 @@ C: <hsva> hsva
 
 <PRIVATE
 
-: Hi ( hsv -- Hi ) hue>> 60 / floor 6 mod ; inline
+: Hi ( hsv -- Hi ) hue>> 60 / floor 6 mod >integer ; inline
 
 : f ( hsv -- f ) [ hue>> 60 / ] [ Hi ] bi - ; inline