diff --git a/extra/backtrack/backtrack.factor b/extra/backtrack/backtrack.factor
index 3c1a794121..db2c50173c 100755
--- a/extra/backtrack/backtrack.factor
+++ b/extra/backtrack/backtrack.factor
@@ -66,3 +66,5 @@ MACRO: amb-execute ( seq -- quot )
         tri* if
     ] with-scope ; inline
 
+: cut-amb ( -- )
+    f failure set ;