diff --git a/lcl/alllclunits.pp b/lcl/alllclunits.pp
index f49176e9c0..cc019418c0 100644
--- a/lcl/alllclunits.pp
+++ b/lcl/alllclunits.pp
@@ -15,7 +15,7 @@ uses
   IniPropStorage, InterfaceBase, IntfGraphics, LazConfigStorage, LazHelpHTML, 
   LazHelpIntf, LazLinkedList, LCLClasses, LCLIntf, LCLMemManager, 
   LCLMessageGlue, LCLProc, LCLResCache, LCLStrConsts, LCLType, Menus, 
-  LCLUnicodeData, LCLVersion, LMessages, LResources, maps, MaskEdit, 
+  LCLUnicodeData, LCLVersion, LMessages, LResources, maps, maskedit, 
   PairSplitter, PopupNotifier, PostScriptCanvas, PostScriptPrinter, 
   postscriptunicode, Printers, PropertyStorage, RubberBand, ShellCtrls, Spin, 
   StdActns, StdCtrls, StringHashList, TextStrings, Themes, TmSchema, Toolwin, 
diff --git a/lcl/interfaces/gtk2/gtk2winapi.inc b/lcl/interfaces/gtk2/gtk2winapi.inc
index 35789d8cf5..bb68529152 100644
--- a/lcl/interfaces/gtk2/gtk2winapi.inc
+++ b/lcl/interfaces/gtk2/gtk2winapi.inc
@@ -4362,7 +4362,7 @@ function TGtk2WidgetSet.GetClientRect(handle : HWND; var ARect : TRect) : Boolea
 begin
   Result := false;
   if Handle = 0 then Exit;
-  ARect := GetWidgetClientRect(PGtkWidget(Handle));
+  ARect := GetWidgetClientRect({%H-}PGtkWidget(Handle));
   Result := True;
 end;