diff --git a/lcl/include/toolbutton.inc b/lcl/include/toolbutton.inc
index ca9ed2d32f..09540db845 100644
--- a/lcl/include/toolbutton.inc
+++ b/lcl/include/toolbutton.inc
@@ -45,10 +45,10 @@ end;
 
 procedure TToolButtonActionLink.SetImageIndex(Value: Integer);
 begin
-  DebugLn(['TToolButtonActionLink.SetImageIndex A ',ClassName,' Client=',
+  {DebugLn(['TToolButtonActionLink.SetImageIndex A ',ClassName,' Client=',
     TToolButton(FClient).Name,' IsImageIndexLinked=',
     IsImageIndexLinked,' Old=',
-    TToolButton(FClient).ImageIndex,' New=',Value]);
+    TToolButton(FClient).ImageIndex,' New=',Value]);}
   if IsImageIndexLinked then TToolButton(FClient).ImageIndex := Value;
 end;