diff --git a/basis/boxes/boxes.factor b/basis/boxes/boxes.factor
index 9e2e8a4673..39f8eb44cc 100644
--- a/basis/boxes/boxes.factor
+++ b/basis/boxes/boxes.factor
@@ -23,4 +23,4 @@ ERROR: box-empty box ;
     dup occupied>> [ box> t ] [ drop f f ] if ;
 
 : if-box? ( box quot -- )
-    >r ?box r> [ drop ] if ; inline
+    [ ?box ] dip [ drop ] if ; inline