                inner-generator))
 
 (defmethod compound-schema-generator :multi [_ inner-generator]
-  inner-generator)
+  (tc.gen/fmap (fn [schema]
+                 [:multi {} any? {true schema}])
+               inner-generator))
 
 (defmethod compound-schema-generator :coll [schema-name inner-generator]
   (tc.gen/fmap (fn [schema]

(defmethod schema-size :wrapped [[_ _ _ _ schema']]
  (schema-size schema'))

(defmethod schema-size :multi [[_ _ _ schema']]
  (schema-size schema'))

(defmethod schema-size :coll [[_ _ schema']]
  (* coll-schema-size-multiplier (schema-size schema')))

(defmethod value-generator :wrapped [[_ _ _ post schema']]
  (tc.gen/fmap post (value-generator schema')))

(defmethod value-generator :multi [[_ _ _ schemas']]
  (tc.gen/one-of (map value-generator (vals schemas'))))

(defmethod value-generator :list [[_ _ schema']]
  (tc.gen/list (value-generator schema')))
