diff --git a/lcl/include/treeview.inc b/lcl/include/treeview.inc
index 52e933939f..b5be75d116 100644
--- a/lcl/include/treeview.inc
+++ b/lcl/include/treeview.inc
@@ -4891,7 +4891,7 @@ begin
   writeln('TCustomTreeView.WMLButtonDown A ',Name,':',ClassName,' ');
   {$ENDIF}
   Exclude(FStates,tvsDragged);
-  inherited;
+  inherited WMLButtonDown(AMessage);
   {$IFDEF VerboseDrag}
   writeln('TCustomTreeView.WMLButtonDown END ',Name,':',ClassName,' ');
   {$ENDIF}
diff --git a/lcl/interfaces/gtk/gtkcallback.inc b/lcl/interfaces/gtk/gtkcallback.inc
index b6d013a637..f1dc46871d 100644
--- a/lcl/interfaces/gtk/gtkcallback.inc
+++ b/lcl/interfaces/gtk/gtkcallback.inc
@@ -1341,7 +1341,7 @@ begin
   ShiftState := GTKEventState2ShiftState(Event^.State);
   MappedXY:=TranslateGdkPointToClientArea(Event^.Window,EventXY,
                                          PGtkWidget(AWinControl.Handle));
-  //writeln('BBB1 MouseDown ',AWinControl.Name,':',AWinControl.ClassName,' Mapped=',MappedXY.X,',',MappedXY.Y,' Event=',EventXY.X,',',EventXY.Y);
+  //writeln('DeliverMouseDownMessage ',AWinControl.Name,':',AWinControl.ClassName,' Mapped=',MappedXY.X,',',MappedXY.Y,' Event=',EventXY.X,',',EventXY.Y);
 
   if event^.Button in [4,5] then begin
     // this is a mouse wheel event
@@ -3192,6 +3192,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.208  2003/12/21 15:36:47  mattias
+  workaround for inherited bug in fpc 1.9
+
   Revision 1.207  2003/12/21 13:58:06  mattias
   renamed DirectoryExists to DirPathExists to reduce ambigiousity