diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 39efcb5e6..004d13937 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -1082,7 +1082,7 @@ VALUE."
                                         (memq (car field) '(mutable immutable))
                                         (pair? (cdr field))
                                         (null? (cddr field)))
-                             (error (error "bad field declaration" field)))
+                             (error "bad field declaration" field))
                            (cadr field))))
                        fields)))
       (check-fields fields)