CLOTHES-EXIT-F / V-GET-UNDRESSED inconsistency

[eriktorbjorn]

If you try to leave Arthur's house (from the front porch) without wearing your gown, the game will ask if you want to get arrested, and then set up responses for "YES" and "NO" like so:

<ROUTINE CLOTHES-EXIT-F ()
     <COND (<FSET? ,GOWN ,WORNBIT>
        ,FRONT-OF-HOUSE)
           (T
        <SETG AWAITING-REPLY 10>
        <ENABLE <QUEUE I-REPLY 2>>
        <TELL ,ARRESTED CR>
        <RFALSE>)>>

However, when the same message is printed by V-GET-UNDRESSED it does not set up the responses:

     <COND (<PRSO? ,ROOMS>
        <COND (<FSET? ,GOWN ,WORNBIT>
               <PERFORM ,V?TAKE-OFF ,GOWN>
               <RTRUE>)
              (<EQUAL? ,IDENTITY-FLAG ,ARTHUR>
               <TELL "You're not wearing anything!" CR>)
              (T
               <TELL ,ARRESTED CR>)>)

I think it should do that. True, you can never get the latter message as Arthur but the other yes/no responses aren't limited to Arthur.