         grouped-subproblems (vals (group-by :expound.spec.problem/type subproblems))]
     (string/join
      "\n\nor\n\n"
-     (map #(expected-str2 % opts) grouped-subproblems))))
+     (map #(expected-str2 spec-name % opts) grouped-subproblems))))
 
 ;; TODO - namespace to expound
 (defmethod value-str :expound.problem/value-group [type spec-name val path problems opts]

         (printer/format
          "%s\n\n%s"
          (value-str type spec-name form in [problem] opts)
          (expected-str2 [problem] opts)))))))

(defmethod problem-group-str :expound.problem/alt-group [_type spec-name val path problems opts]
  (s/assert ::singleton problems)

                         group)))
              (conj grps group)))
          [])
         lift-singleton-groups)))

(declare annotate-1*) ;; TODO - remove
