I used ACL_WordWrapControlText on a Macintosh

After some work in order to understand GroupBox and TitleBox, I started to test your procedure.
(manual call from command line) However, as soon as I changed the default font for my TitleBox,
I started to get the "missing font dialog". I understood that the reason was the following line in your Code
fontName = StringByKey("font", S_recreation, "=", ",")
Which produce the string "Optima" (for example) instead of Optima. In other words, the double quotes are
included inside the string while it should not.
Workaround : I then changed the line to
fontName = RemoveEnding(StringByKey("font=", S_recreation, "\"", ","))
Which produce the string Optima without quotes. Note the change from "=" to "\"" inside StringByKey.
Then your procedure worked as expected.

When I open your Demo experiment (see my other bug report), I get exactly the same problem.
When I substitute my corrected version, your demo works as intended.

If I accept the font substitution (with the initial version), I got user font substitutions like
"Optima" -> Optima
and the procedure then works for this particular font (but not for others).