diff --git a/bin/Lib/GraphWPF.pas b/bin/Lib/GraphWPF.pas
index 64d67f355..e6c07f918 100644
--- a/bin/Lib/GraphWPF.pas
+++ b/bin/Lib/GraphWPF.pas
@@ -1786,6 +1786,8 @@ type
       if real.IsNaN(YTicks) then
         YTicks := Ticks(max-min);
       var th := TextHeightP('0');
+      if title<>'' then 
+        th := TextHeightP(title);
       var tw := GetRY0.Step(YTicks).TakeWhile(ry -> ry <= max).Select(y -> TextWidthP(y.Round(YTicksPrecision).ToString)).Max;
       var dd := TextWidthP(b.Round(xTicksPrecision).ToString)/2;
 
@@ -2556,4 +2558,4 @@ initialization
   __InitModule;
 
 finalization  
-end. 
\ No newline at end of file
+end.