diff --git a/ide/codehelp.pas b/ide/codehelp.pas
index 52a1758758..85ba9c5402 100644
--- a/ide/codehelp.pas
+++ b/ide/codehelp.pas
@@ -895,6 +895,8 @@ function TCodeHelpManager.DoCreateFPDocFileForSource(const SrcFilename: string;
   function SelectNewLazDocPaths(const Title, BaseDir: string): string;
   begin
     Result:=LazSelectDirectory('Choose LazDoc directory for '+Title,BaseDir);
+    if (Result<>'') then
+      Result:=CreateRelativePath(Result,BaseDir);
   end;
   
 var