diff --git a/src/uAppTypes.pas b/src/uAppTypes.pas
index d8b5eb5..86e6da1 100644
--- a/src/uAppTypes.pas
+++ b/src/uAppTypes.pas
@@ -11,7 +11,8 @@ unit uAppTypes;
 interface
 
 uses
-  SysUtils;
+  SysUtils
+  {$IFDEF UNIX}, BaseUnix{$ENDIF};
 
 type
   { Чем заполнен сегмент готового ряда.
@@ -119,6 +120,16 @@ function Plural(ACount: Integer; const AOne, AFew, AMany: string): string;
   Назад полоска не идёт никогда. }
 function AdvanceProgress(AShown, AReal, ANext, AStepShare: Double): Double;
 
+{ Каталог, в котором лежит сама программа.
+
+  Не ExtractFilePath(ParamStr(0)): если программу запустили через
+  символьную ссылку — а так она и попадает в PATH и в меню, — то путь
+  укажет на ссылку, и рядом с ней окажутся и журнал, и файл зависимостей,
+  и поиск ffmpeg. Ссылки раскрываются, пока не кончатся.
+
+  Под Windows ссылок такого рода нет, и путь берётся как есть. }
+function ProgramDir: string;
+
 implementation
 
 var
@@ -182,4 +193,31 @@ begin
     Result := 0.999;
 end;
 
+function ProgramDir: string;
+var
+  Path, Target: string;
+  {$IFDEF UNIX}
+  Guard: Integer;
+  {$ENDIF}
+begin
+  Path := ExpandFileName(ParamStr(0));
+  {$IFDEF UNIX}
+  { Ограничение на число переходов — от закольцованных ссылок. }
+  Guard := 0;
+  while Guard < 16 do
+  begin
+    Target := fpReadLink(Path);
+    if Target = '' then
+      Break;
+    { Ссылка может указывать и относительным путём — считаем его от
+      каталога самой ссылки. }
+    if (Length(Target) > 0) and (Target[1] <> '/') then
+      Target := ExpandFileName(ExtractFilePath(Path) + Target);
+    Path := Target;
+    Inc(Guard);
+  end;
+  {$ENDIF}
+  Result := ExtractFilePath(Path);
+end;
+
 end.
diff --git a/src/uDeps.pas b/src/uDeps.pas
index 55cb020..48ff2ed 100644
--- a/src/uDeps.pas
+++ b/src/uDeps.pas
@@ -24,7 +24,7 @@ unit uDeps;
 interface
 
 uses
-  Classes, SysUtils;
+  Classes, SysUtils, uAppTypes;
 
 type
   TStringArray = array of string;
@@ -89,7 +89,7 @@ uses
 
 function DepTargetDir: string;
 begin
-  Result := ExtractFilePath(ExpandFileName(ParamStr(0)));
+  Result := ProgramDir;
 end;
 
 function DepsConfigPath: string;
diff --git a/src/uFfmpegCmd.pas b/src/uFfmpegCmd.pas
index 1760602..a8c441c 100644
--- a/src/uFfmpegCmd.pas
+++ b/src/uFfmpegCmd.pas
@@ -362,7 +362,7 @@ function LocateTool(const AName: string): string;
 var
   Own: string;
 begin
-  Own := ExtractFilePath(ExpandFileName(ParamStr(0))) + AName
+  Own := ProgramDir + AName
     {$IFDEF WINDOWS} + '.exe'{$ENDIF};
   if FileExists(Own) then
     Exit(Own);
diff --git a/src/uMainForm.pas b/src/uMainForm.pas
index ee219dd..233fb8a 100644
--- a/src/uMainForm.pas
+++ b/src/uMainForm.pas
@@ -350,7 +350,7 @@ begin
 
   pnlVideo.Color := clBlack;
   memoLog.Clear;
-  FLogFilePath := ExtractFilePath(ExpandFileName(ParamStr(0))) + 'nlve.log';
+  FLogFilePath := ProgramDir + 'nlve.log';
 
   FPlayer := TMpvPlayer.Create(pnlVideo);
   FPlayer.OnLog := @PlayerLog;
diff --git a/src/uProject.pas b/src/uProject.pas
index bb8b969..8262766 100644
--- a/src/uProject.pas
+++ b/src/uProject.pas
@@ -912,7 +912,7 @@ begin
   if FFileName = '' then
     { Проект ещё не сохранён — держим кэш рядом с программой, чтобы не
       разбрасывать файлы по системным каталогам. }
-    Result := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))) +
+    Result := ProgramDir +
       'unsaved.nlve-cache' + PathDelim
   else
     Result := IncludeTrailingPathDelimiter(ExtractFilePath(FFileName)) +