diff --git a/core/combinators/combinators.factor b/core/combinators/combinators.factor
index e8c2d18a42..95b62fc3f3 100644
--- a/core/combinators/combinators.factor
+++ b/core/combinators/combinators.factor
@@ -31,7 +31,7 @@ SLOT: out
         [ dip ] dip
         dup in>> length swap out>> length
         check-datastack
-    ] 2dip
+    ] 2dip rot
     [ 2drop ] [ wrong-values ] if ;
 
 : execute-effect ( word effect -- )