git-svn-id: trunk@40236 -
@@ -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}