diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index 1cf43745bb..5ae63e9ac8 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -1868,7 +1868,6 @@ end;
  ------------------------------------------------------------------------------}
 Procedure TWinControl.WMKeyDown(Var Message : TLMKeyDown);
 Begin
-writeln('EEE1 ',Name,':',ClassName);
   Assert(False, Format('Trace:[TWinControl.WMKeyDown] %s', [ClassName]));
   if not DoKeyDown(Message) then {inherited} ;  // there is nothing to inherit
 end;
@@ -2289,6 +2288,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.71  2002/05/28 15:05:59  lazarus
+  MG: reduced output
+
   Revision 1.70  2002/05/28 14:58:30  lazarus
   MG: added scrollbars for TListView