diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index 3864df6cea..5b4a9ab8f9 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -5307,7 +5307,7 @@ begin
 end;
 
 {------------------------------------------------------------------------------
-  procedure TControl.CNPreferredSizeChanged;
+  procedure TControl.GetSidePosition;
 
   Utility function to retrieve Left,Top,Right and Bottom.
  ------------------------------------------------------------------------------}