Problems deploying a simple instant form which involves regular expressions

If I deploy these two forms at once, I get an odd FullForm output in the second form:

CloudDeploy[FormFunction[{{"str","Your Text:" }-> "String"},Part[StringCases[#str,  RegularExpression["^.*\W(.*)"]->"$1"],1]&]]
CloudDeploy[FormFunction[{{"str","Your Text:" }-> "String"},Part[StringCases[#str,  RegularExpression["^.*\W(.*)"]->"$1"],1]&]]

It seems to be a bug, but maybe I’m missing something.