Custom message for wearing the dress-suit combination isn't shown

[eriktorbjorn]

>WEAR DRESS-SUIT
You are now wearing the dress-suit combination.

>REMOVE DRESS-SUIT
You wriggle out of the dress-suit combination.

Looking at DRESS-F, it looks like there was meant to be a custom message for wearing the dress-suit combination as well:

           (<AND <VERB? WEAR TAKE-OFF REMOVE>
             <FSET? ,DRESS ,WORNBIT>>
        <COND (<FSET? ,SHAWL ,WORNBIT>
               <REMOVE-FIRST ,SHAWL>
               <RTRUE>)>
            <TELL "You wriggle ">
        <COND (<VERB? WEAR>
               <TELL "into">
               <MOVE ,DRESS ,PROTAGONIST>
               <FSET ,DRESS ,WORNBIT>)
              (T
               <TELL "out of">
               <FCLEAR ,DRESS ,WORNBIT>)>

But it's not used because it only handles the WEAR action if the dress-suit combination is already worn, and in that case it's already been caught by PRE-WEAR.

[eriktorbjorn]

The gorilla suit has the same problem. See SUIT-F:

>WEAR GORILLA SUIT
You are now wearing the gorilla suit.

>REMOVE GORILLA SUIT
You laboriously climb out of the heavy, itchy gorilla suit.

           (<AND <VERB? WEAR BOARD REMOVE TAKE-OFF DISEMBARK>
             <FSET? ,SUIT ,WORNBIT>>
        <TELL "You laboriously climb ">
        <COND (<VERB? WEAR BOARD>
                   <MOVE ,SUIT ,PROTAGONIST>
               <FSET ,SUIT ,WORNBIT>
               <TELL "into">)
                  (T
               <FCLEAR ,SUIT ,WORNBIT>
               <TELL "out of">)>
        <TELL " the heavy, itchy " D ,SUIT "." CR>)