diff --git a/rtl/objpas/classes/classesh.inc b/rtl/objpas/classes/classesh.inc
index 79b93f79be..e2d7748eee 100644
--- a/rtl/objpas/classes/classesh.inc
+++ b/rtl/objpas/classes/classesh.inc
@@ -849,8 +849,9 @@ type
     procedure InsertItem(Index: Integer; const S: string); virtual;
     procedure InsertItem(Index: Integer; const S: string; O: TObject); virtual;
     Function DoCompareText(const s1,s2 : string) : PtrInt; override;
-
   public
+    Constructor Create;
+    Constructor Create(anOwnsObjects : Boolean);
     destructor Destroy; override;
     function Add(const S: string): Integer; override;
     procedure Clear; override;
diff --git a/rtl/objpas/classes/stringl.inc b/rtl/objpas/classes/stringl.inc
index 290c043109..e009120109 100644
--- a/rtl/objpas/classes/stringl.inc
+++ b/rtl/objpas/classes/stringl.inc
@@ -1930,6 +1930,16 @@ begin
 end;
 
 
+Constructor TStringList.Create;
+begin
+  inherited Create;  
+end;
+
+Constructor TStringList.Create(anOwnsObjects : Boolean);
+begin
+  inherited Create;
+  FOwnsObjects:=anOwnsObjects; 
+end;
 
 destructor TStringList.Destroy;