From d55f80d2f97cc2dac36f46ee3b7e35912e52f842 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 6 Nov 2018 07:40:31 +0000
Subject: [PATCH]  Really change extension of hs1 local variable in get_exepath

git-svn-id: trunk@40236 -
---
 compiler/globals.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/globals.pas b/compiler/globals.pas
index 516105d9e3..42689d81f4 100644
--- a/compiler/globals.pas
+++ b/compiler/globals.pas
@@ -1420,7 +1420,7 @@ implementation
        if localexepath='' then
         begin
           hs1 := ExtractFileName(exeName);
-          ChangeFileExt(hs1,source_info.exeext);
+	  hs1 := ChangeFileExt(hs1,source_info.exeext);
 {$ifdef macos}
           FindFile(hs1,GetEnvironmentVariable('Commands'),false,localExepath);
 {$else macos}