diff --git a/scheme/ikarus.lists.ss b/scheme/ikarus.lists.ss
index ae645ec..1b508bd 100644
--- a/scheme/ikarus.lists.ss
+++ b/scheme/ikarus.lists.ss
@@ -606,7 +606,8 @@
             [(null? ls)
              (if (andmap null? ls*)
                  '()
-                 (die who "length mismatch"))])])))
+                 (die who "length mismatch"))]
+            [else (die who "not a list" ls)])])))
 
   (module (for-each)
     (define who 'for-each)
diff --git a/scheme/last-revision b/scheme/last-revision
index 2107c66..4efaa29 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1429
+1430