diff --git a/examples/cleandir/frmmain.pp b/examples/cleandir/frmmain.pp
index d8480a6a7c..c049ab7eb3 100644
--- a/examples/cleandir/frmmain.pp
+++ b/examples/cleandir/frmmain.pp
@@ -873,7 +873,6 @@ begin
       Clear;
       For I:=0 to Loc.Count-1 do
         begin
-        Writeln('Adding ',Loc[i].Name);
         J:=Add(Loc[i].Name);
         Objects[J]:=Loc[i];
         end;