1 files changed, 1 insertions, 1 deletions
diff --git a/unwind.c b/unwind.c
index 478ac5a4..0f9ffe63 100644
--- a/unwind.c
+++ b/unwind.c
@@ -955,7 +955,7 @@ static val me_defex(val form, val menv)
     eval_error(form, lit("defex: arguments must all be symbols"), nao);
 
   return cons(intern(lit("register-exception-subtypes"), user_package),
-              mapcar(curry_12_2(list_f, quote_s), types));
+              mapcar(pa_12_2(list_f, quote_s), types));
 }
 
 static val exception_subtype_map(void)