diff --git a/scheme/ikarus.handlers.ss b/scheme/ikarus.handlers.ss
index b4e1efb..0842806 100644
--- a/scheme/ikarus.handlers.ss
+++ b/scheme/ikarus.handlers.ss
@@ -62,8 +62,8 @@
       (die 'apply "not a procedure" x)))
   
   (define $incorrect-args-error-handler
-    (lambda (p n)
-      (die 'apply "incorrect number of arguments" n p)))
+    (lambda (p . ls)
+      (apply die 'apply "incorrect number of arguments" p ls)))
   
   (define $multiple-values-error
     (lambda args
diff --git a/scheme/last-revision b/scheme/last-revision
index 19a5f54..b1df5a8 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1432
+1433