diff --git a/rtl/objpas/sysutils/syspch.inc b/rtl/objpas/sysutils/syspch.inc
index b53051f393..a91a233aa6 100644
--- a/rtl/objpas/sysutils/syspch.inc
+++ b/rtl/objpas/sysutils/syspch.inc
@@ -1,3 +1,4 @@
+{%MainUnit sysutils.pp}
 {
     *********************************************************************
     Copyright (C) 1997, 1998 Gertjan Schouten
@@ -35,6 +36,8 @@ begin
   Result:=Str;
 end ;
 
+
+
 {  StrAlloc allocates a buffer of Size + 4
    the size of the allocated buffer is stored at result - 4
    StrDispose should be used to destroy the buffer  }
diff --git a/rtl/objpas/sysutils/syspchh.inc b/rtl/objpas/sysutils/syspchh.inc
index 74d59c7dd6..e7010906fa 100644
--- a/rtl/objpas/sysutils/syspchh.inc
+++ b/rtl/objpas/sysutils/syspchh.inc
@@ -1,3 +1,4 @@
+{%MainUnit sysutils.pp}
 {
     *********************************************************************
     Copyright (C) 1997, 1998 Gertjan Schouten
diff --git a/rtl/objpas/sysutils/syssr.inc b/rtl/objpas/sysutils/syssr.inc
index 424d77cf59..94b6466998 100644
--- a/rtl/objpas/sysutils/syssr.inc
+++ b/rtl/objpas/sysutils/syssr.inc
@@ -1,3 +1,4 @@
+{%MainUnit sysutils.pp}
 var
   OldPat,Srch: SRstring; // Srch and Oldp can contain uppercase versions of S,OldPattern
   PatLength,NewPatLength,P,Cnt,PrevP: Integer;
diff --git a/rtl/objpas/sysutils/systhrdh.inc b/rtl/objpas/sysutils/systhrdh.inc
index 8a9daed30c..ff8cc02ce6 100644
--- a/rtl/objpas/sysutils/systhrdh.inc
+++ b/rtl/objpas/sysutils/systhrdh.inc
@@ -1,3 +1,4 @@
+{%MainUnit sysutils.pp}
 {
     This file is part of the Free Pascal run time library.
     Copyright (c) 1999-2001 by the Free Pascal development team
diff --git a/rtl/objpas/sysutils/sysuthrd.inc b/rtl/objpas/sysutils/sysuthrd.inc
index 832cecca66..607cd7794f 100644
--- a/rtl/objpas/sysutils/sysuthrd.inc
+++ b/rtl/objpas/sysutils/sysuthrd.inc
@@ -1,3 +1,4 @@
+{%MainUnit sysutils.pp}
 {
     This file is part of the Free Pascal run time library.
     Copyright (c) 2005,2009 by the Free Pascal development team
diff --git a/rtl/objpas/sysutils/syswide.inc b/rtl/objpas/sysutils/syswide.inc
index 211b1f7a97..c78868c288 100644
--- a/rtl/objpas/sysutils/syswide.inc
+++ b/rtl/objpas/sysutils/syswide.inc
@@ -1,3 +1,4 @@
+{%MainUnit sysutils.pp}
 {
     *********************************************************************
     Copyright (C) 2002-2005 by Florian Klaempfl
diff --git a/rtl/objpas/sysutils/syswideh.inc b/rtl/objpas/sysutils/syswideh.inc
index 31e2e1d0ba..1f4bc751c9 100644
--- a/rtl/objpas/sysutils/syswideh.inc
+++ b/rtl/objpas/sysutils/syswideh.inc
@@ -1,3 +1,4 @@
+{%MainUnit sysutils.pp}
 {
     *********************************************************************
     Copyright (C) 2002 by Florian Klaempfl
diff --git a/rtl/objpas/sysutils/tzenv.inc b/rtl/objpas/sysutils/tzenv.inc
index ffe9c2c018..1bbcee0c9e 100644
--- a/rtl/objpas/sysutils/tzenv.inc
+++ b/rtl/objpas/sysutils/tzenv.inc
@@ -1,3 +1,4 @@
+{%MainUnit sysutils.pp}
 {
     This file is part of the Free Pascal run time library.
     Copyright (c) 2020 by Tomas Hajny,