diff --git a/Native.pas b/Native.pas
index 63d7ee3..6a3ee5b 100644
--- a/Native.pas
+++ b/Native.pas
@@ -2021,6 +2021,7 @@ procedure InitFile {keepName: gsosOutStringPtr; keepFlag: integer; partial: bool
    OpenObj(fname2);
 
    {write the header}
+   InitNative;
    Header(@'~_ROOT', $4000, 0);
 
    {new desk accessory initialization}