Support for relative symlink creation

1 files changed, 1 insertions, 1 deletions

diff --git a/UMain.pas b/UMain.pas
index fbcf334..83ea9a1 100644
--- a/UMain.pas
+++ b/UMain.pas
@@ -4221,7 +4221,7 @@ begin
     else s1 := IncludeTrailingPathDelimiter(Engine.Path) + PDataItem(AListView.Selected.Data)^.FName;
   if Engine.Path <> EngineOpposite.Path
     then s2 := IncludeTrailingPathDelimiter(EngineOpposite.Path) + PDataItem(AListView.Selected.Data)^.FName
-    else s2 := '';
+    else s2 := IncludeTrailingPathDelimiter(EngineOpposite.Path) + Format('Link to %s', [PDataItem(AListView.Selected.Data)^.FName]);
 
   if CreateSymlink(s1, s2, Engine) then begin
     DoRefresh(LeftPanel, True, True);