diff --git a/basis/math/ratios/ratios.factor b/basis/math/ratios/ratios.factor
index cb6dc29760..70969cad43 100644
--- a/basis/math/ratios/ratios.factor
+++ b/basis/math/ratios/ratios.factor
@@ -77,3 +77,5 @@ M: ratio /i scale /i ;
 M: ratio /f scale /f ;
 M: ratio mod scale+d [ mod ] [ / ] bi* ;
 M: ratio /mod scale+d [ /mod ] [ / ] bi* ;
+M: ratio abs dup neg? [ >fraction [ neg ] dip fraction> ] when ;
+M: ratio neg? numerator neg? ; inline