diff --git a/components/callite/source/calendarlite.pas b/components/callite/source/calendarlite.pas
index dabeb1627..7dbe994ca 100644
--- a/components/callite/source/calendarlite.pas
+++ b/components/callite/source/calendarlite.pas
@@ -1344,6 +1344,8 @@ end;
 
 procedure TCalDrawer.GotoToday;
 begin
+  if (coNoMonthChange in FOwner.FOptions) then
+    exit;
   FOwner.Date:= Date();
 end;