The cleanest approach I have found to achieve this is:
PULogin-asComponent
^ (self description asComponentOn: self)
addValidatedForm: (Array with: #save -> 'Login' with: #cancel);
yourself
It might be worth including this in Pier, since users have often
commented to me about it
regards
Keith