diff --git a/extra/combinators/lib/lib.factor b/extra/combinators/lib/lib.factor
index 08336fd32e..f65b94dc11 100755
--- a/extra/combinators/lib/lib.factor
+++ b/extra/combinators/lib/lib.factor
@@ -170,4 +170,4 @@ MACRO: construct-slots ( assoc tuple-class -- tuple )
     >r keep r> rot [ call ] [ 2drop f ] if ; inline
 
 : retry ( quot n -- )
-    swap [ drop ] swap compose attempt-all ; inline
+    [ drop ] rot compose attempt-all ; inline