diff --git a/extra/math/compare/compare.factor b/extra/math/compare/compare.factor
index 116daa1ca6..28a8eadc81 100644
--- a/extra/math/compare/compare.factor
+++ b/extra/math/compare/compare.factor
@@ -6,10 +6,10 @@ USING: math math.order kernel ;
 IN: math.compare 
 
 : absmin ( a b -- x ) 
-   [ [ abs ] dip abs < ] 2keep ? ;
+   [ [ abs ] bi@ < ] 2keep ? ;
 
 : absmax ( a b -- x ) 
-   [ [ abs ] dip abs > ] 2keep ? ;
+   [ [ abs ] bi@ > ] 2keep ? ;
 
 : posmax ( a b -- x ) 
    0 max max ;