From 3a6e1341f563fde03543987b74bded555cb4e82f Mon Sep 17 00:00:00 2001
From: Juha <juha@lazarus-ide.org>
Date: Sun, 13 Mar 2022 11:00:23 +0200
Subject: [PATCH] Revert using current dir as a base dir for LazarusDirectory.
 Issue #39671.

---
 ide/environmentopts.pp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/ide/environmentopts.pp b/ide/environmentopts.pp
index 85df88f6c7..797df6fee8 100644
--- a/ide/environmentopts.pp
+++ b/ide/environmentopts.pp
@@ -3490,10 +3490,9 @@ begin
         eopLazarusDirectory:
           // lazarus directory
           begin
+            ParsedValue:=TrimAndExpandDirectory(ParsedValue,GetPrimaryConfigPath);
             if ParsedValue='' then
-              ParsedValue:=AppendPathDelim(GetCurrentDirUTF8)
-            else
-              ParsedValue:=TrimAndExpandDirectory(ParsedValue,GetCurrentDirUTF8);
+              ParsedValue:=TrimFilename(AppendPathDelim(GetCurrentDirUTF8));
           end;
         eopFPCSourceDirectory,eopTestBuildDirectory:
           // directory