diff --git a/critbit/critbit.factor b/critbit/critbit.factor
index 938d6d1..b14554e 100644
--- a/critbit/critbit.factor
+++ b/critbit/critbit.factor
@@ -109,7 +109,7 @@ PRIVATE>
         [ [ byte#>> ] bi@ - [ 0 < ] [ 0 = ] bi ] 2keep
         [ bits>> ] > and
         or
-    ] dip
+    ] dip drop
     ;
 
 : insertion-walk ( tree split-node new-direction -- tree )