diff --git a/lcl/interfaces/gtk/gtklistsl.inc b/lcl/interfaces/gtk/gtklistsl.inc
index f2da46b56d..db6d2db667 100644
--- a/lcl/interfaces/gtk/gtklistsl.inc
+++ b/lcl/interfaces/gtk/gtklistsl.inc
@@ -869,7 +869,6 @@ function TGtkListStringList.IndexOf(const S: string): Integer;
 var
   l, m, r, cmp: integer;
 begin
-  BeginUpdate;
   if FSorted then begin
     l:=0;
     r:=Count-1;
@@ -891,7 +890,6 @@ begin
   end else begin
     Result:=inherited IndexOf(S);
   end;
-  EndUpdate;
 end;
 
 {------------------------------------------------------------------------------
diff --git a/lcl/interfaces/gtk/gtkproc.pp b/lcl/interfaces/gtk/gtkproc.pp
index 48f5d7dd48..9c907ccb21 100644
--- a/lcl/interfaces/gtk/gtkproc.pp
+++ b/lcl/interfaces/gtk/gtkproc.pp
@@ -665,8 +665,8 @@ procedure UpdateStatusBarPanel(StatusBar: TObject; Index: integer;
                                StatusPanelWidget: PGtkWidget);
 
 // list
-function gtkListSelectChild(widget: PGtkWidget;child : PGtkWidget;
-                                      data: gPointer): GBoolean; cdecl;
+function gtkListSelectChild(widget: PGtkWidget; child: PGtkWidget;
+                            data: gPointer): GBoolean; cdecl;
 function gtkListGetSelectionMode(list: PGtkList): TGtkSelectionMode;cdecl;