                (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))"))
+        (cl-format nil "    In this form: ~A" form)      
+        "before forms should look like: (before :contents/:facts/:checks (your-code)) or "
+        "(before :contents/:facts/:checks (your-code) :after (final-code))")
 
       ((complement valid-wrapping-targets) wrapping-target)
       (user-error-report-form form

(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:"
          (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:"
                  (str form))
                
                (empty? state-descriptions+fakes)
                (user-error-report-form form
                  "    can't be empty:"
                  (str form))
          
                :else

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