V-LOCK / V-UNLOCK message inconsistency

[eriktorbjorn]

This is how V-UNLOCK deals with "UNLOCK object WITH object":

              (,PRSI
               <TELL
"When was the last time you unlocked something with" A ,PRSI "?" CR>)

This is how V-LOCK deals with "LOCK object WITH object":

              (,PRSI
               <TELL
"When was the last time you locked something with" AR ,PRSI>)

It would be more consistent if this, too, used A ,PRSI "?" CR at the end, since it is a question.