It looks like a bug. Using the one line procedure
if I hold the option key down and press the run button, the message is
If I hold the option key, and call the procedure from the Action menu, the message is
It works correctly, when the procedure is called by clicking an object on a form.