diff --git a/ide/idehelpmanager.pas b/ide/idehelpmanager.pas
index 2ec7a71f0c..0269c45c6d 100644
--- a/ide/idehelpmanager.pas
+++ b/ide/idehelpmanager.pas
@@ -1230,7 +1230,7 @@ procedure TIDEHelpManager.RegisterIDEHelpDatabases;
   begin
     FLCLHelpDB:=HelpDatabases.CreateHelpDatabase(lihcLCLUnits,
                                                  TFPDocHTMLHelpDatabase,true);
-    HTMLHelp:=FRTLHelpDB as TFPDocHTMLHelpDatabase;
+    HTMLHelp:=FLCLHelpDB as TFPDocHTMLHelpDatabase;
     HTMLHelp.DefaultBaseURL:=lihLCLURL;
     FLCLHelpDBPath:=THelpBaseURLObject.Create;
     HTMLHelp.BasePathObject:=FLCLHelpDBPath;