diff --git a/ide/todolist.pas b/ide/todolist.pas
index 01443d1e83..137e48583b 100644
--- a/ide/todolist.pas
+++ b/ide/todolist.pas
@@ -606,7 +606,7 @@ begin
   try
     fBuild:=True;
     CodeToolBoss.ActivateWriteLock;
-    fScannedFiles.Clear;
+    fScannedFiles.FreeAndClear;
     lvTodo.Items.Clear;
 
     if MainSourceFilename='' then exit;