 (defmethod validate "against-background" [[_against-background_ state-descriptions+fakes & _body_ :as form]]
   (cond (< (count form) 3)
         (user-error-report-form form
-          "    against-background form looks like it is missing background fakes or state descriptions:"
+          "against-background form has no background fakes or state descriptions:"
           (str form))
      
         (vector? state-descriptions+fakes)                                    
         (when-valid (filter state-description? state-descriptions+fakes)
           (cond (not (valid-state-descriptions+fakes? state-descriptions+fakes))
                 (user-error-report-form form
-                  "    something doesn't look like a state-desccription or a background fake:"
+                  "Badly formatted against-background fakes:"
                   (str form))
                 
                 (empty? state-descriptions+fakes)
                 (user-error-report-form form
-                  "    can't be empty:"
+                  "You didn't enter any background fakes or wrappers:"
                   (str form))
           
                 :else

  (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"))))
  (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))
