In the following procedure:

!****************************************
PROCEDURE EAG_SHOW_WINDOW (NEEDED_LINES)

.
.
.
Modify the following lines commenting out the lines shown:

if (needed_lines) = 0 then ! Get rid of map window
    if eag_map_window <> 0 then
        delete (eag_map_buffer);
        delete (eag_map_window);
        eag_map_window := 0;
        adjust_window (current_window, 0, eag_map_lines);
!        if eag$x_screen_length - eag$x_window_length <> 2 then
!            adjustment := eag$x_screen_length - eag$x_window_length - 2;
!            adjust_window (eag_map_window, 0, adjustment);
!        endif;
        return;
    endif;
endif;
if adjustment <> 0 then ! we must adjust the size of the mapping window
    SET (SCREEN_UPDATE, OFF); ! For speed and to avoid confusion
    if adjustment > 0 then ! Window is too big
        if (needed_lines) <> 0 then ! Window exists
            adjust_window (eag_map_window, adjustment, 0);
        endif;
    endif;


*****
If the above code DOES NOT fix your problem then send me a 600' mag tape
and I'll send you the current version.  The current version is running on 
our systems under VMS Ver.5.4.  We will upgrade to 5.5 later in the year.

By the way, if you are connected to Internet, BITNET, or something similar
I have an address you can send mail to, you can reach me at:

    rick_sys@adpce.lrk.ar.us

Good luck, hope it works for you...

Rick S.