diff --git a/lib/init-7.scm b/lib/init-7.scm
index 8093e446..13d2e465 100644
--- a/lib/init-7.scm
+++ b/lib/init-7.scm
@@ -815,10 +815,11 @@
                  (map
                   (lambda (clause) (expand-pattern (car clause) (cadr clause)))
                   forms)
-                 (list _cons
-                       (list _error "no expansion for"
-                             (list (rename 'strip-syntactic-closures) _expr))
-                       #f))))))))))
+                 (list
+                  (list _cons
+                        (list _error "no expansion for"
+                              (list (rename 'strip-syntactic-closures) _expr))
+                        #f)))))))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; additional syntax