Initialize on wrong file

When the following procedure runs, if the Relationships database is not open, it does get opened. However, the Relationships’ Initialize procedure runs on the calling database, effecting that file’s window and menus.

If dbcheckopen(“Relationships”)= 0
RememberWindow
OpenFile “Resources/Relationships”
If Error nop EndIf
OriginalWindow
EndIf

The Relationships .Initialize procedure:

Local a,b,c,d
GetMaxWindow a,b,c,d
a = c-100
windowmenubar “basic -none”,""

Zoomwindow a,5,100,315,“noToolBar NoScroll”

I get this error notification:
Screen Shot 2022-06-16 at 10.14.20 AM