diff --git a/collects/swindle/extra.ss b/collects/swindle/extra.ss
index 65bf69d75e..0ff3ebf6e4 100644
--- a/collects/swindle/extra.ss
+++ b/collects/swindle/extra.ss
@@ -894,7 +894,7 @@
 ;;>   `(amb)' fails immediately.
 (defsubst* (amb expr ...)
   (let ([prev-amb-fail (amb-fail)])
-    (let/cc sk
+    (let/ec sk
       (let/cc fk
         (amb-fail (thunk (amb-fail prev-amb-fail) (fk 'fail)))
         (sk expr)) ...