"ENTER HEIMAN VILLAGE" doesn't work from Main & River

[eriktorbjorn]

>LOOK
Main & River
This is a typical four-way intersection between Main and River Streets. An
entranceway through the massive walls of Heiman Village fills the southeast
corner of the street, and a health care facility occupies the northeast corner.

To the southwest is 80 River Street, a brand new plastalloy and glass office
building, with many floors still unoccupied according to the billboard over the
entrance. The fourth corner, the northwest, is the site of Perez Towers, a
luxury apartment building.

>ENTER HEIMAN VILLAGE
Main & Church
You are at the corner of bustling Main Street and quiet Church Street. There is
construction in progress on the northwestern and southwestern corners. A
conventional apartment building occupies the southeast corner, and an entrance
to Midland Cemetery forms the fourth corner. Some greenery is visible down
Church Street to the south.

That's because of an oversight in HEIMAN-VILLAGE-OBJECT-F:

<ROUTINE HEIMAN-VILLAGE-OBJECT-F ()
     <COND (<VERB? WALK-TO THROUGH>
        <COND (<EQUAL? ,HERE ,HEIMAN-VILLAGE>
               <TELL ,LOOK-AROUND CR>)
              (<EQUAL? ,HERE ,CHURCH-STREET-PARK>
               <DO-WALK ,P?WEST>)
              (<GLOBAL-IN? ,PRSO ,HERE>
               <DO-WALK ,P?EAST>)>)

You can enter HEIMAN-VILLAGE from three adjacent rooms:

• WEST from CHURCH-STREET-PARK
• NE, EAST or SE from ELM-AND-RIVER
• SE from MAIN-AND-RIVER

So it should be enough to change the default case to

              (<GLOBAL-IN? ,PRSO ,HERE>
               <DO-WALK ,P?SE>)>)