diff --git a/rtl/objpas/classes/lists.inc b/rtl/objpas/classes/lists.inc
index ecd0f58433..7ada83baae 100644
--- a/rtl/objpas/classes/lists.inc
+++ b/rtl/objpas/classes/lists.inc
@@ -618,9 +618,17 @@ begin
 end;
 
 Procedure TList.AddList(AList : TList);
+var
+  I: Integer;
 begin
-  FList.AddList(AList.FList);
-end;
+  { this only does FList.AddList(AList.FList), avoiding notifications }
+  AddList(AList);
+
+  { make lnAdded notifications }
+  for I := 0 to AList.Count - 1 do
+    if AList[I] <> nil then
+      Notify(AList[I], lnAdded);
+end;            
 
 procedure TList.Clear;