diff --git a/rtl/objpas/classes/lists.inc b/rtl/objpas/classes/lists.inc
index 7ada83baae..cc10a1a10f 100644
--- a/rtl/objpas/classes/lists.inc
+++ b/rtl/objpas/classes/lists.inc
@@ -622,7 +622,7 @@ var
   I: Integer;
 begin
   { this only does FList.AddList(AList.FList), avoiding notifications }
-  AddList(AList);
+  FList.AddList(AList.FList);
 
   { make lnAdded notifications }
   for I := 0 to AList.Count - 1 do