   (when-valid (filter state-description? state-descriptions+fakes) 
     (if (valid-state-descriptions+fakes? state-descriptions+fakes)
       state-descriptions+fakes
-      (user-error-report-form form "boom"))))+      (user-error-report-form form 
+        (cl-format nil "Badly formatted background fakes:")
+        (str form)))))
               (and (= 5 (count form)) 
                    (not= :after (nth form 3)))))
      (user-error-report-form form
        (cl-format nil "    ~A form should look like: (before :contents/:facts/:checks (your-code)) or" form (name state-description))
        (cl-format nil "    (before :contents/:facts/:checks (your-code) :after (final-code))"))

      ((complement valid-wrapping-targets) wrapping-target)
      (user-error-report-form form

  (cond 
      (and (#{"after" "around"} (name state-description)) (not= 3 (count form)))
      (user-error-report-form form
        (cl-format nil "    In this form: ~A" form)
        (cl-format nil "~A forms should look like: (~A :contents/:facts/:checks (your-code))" (name state-description) (name state-description))) 
  
      (and (= "before" (name state-description)) 
           (not= 3 (count form))
