Приведение переданных в создание симлика путей к полному пути

Иначе при установке OVM_INSTALL_PATH в относительный каталог симлинк не создается

src/core/Классы/АктиваторOneScript.os

@@ -105,18 +105,21 @@
 
 Процедура СоздатьСимЛинкНаКаталог(Знач Ссылка, Знач ПутьНазначения)
 
-	Лог.Отладка("Создаю символическую ссылку %1 на %2", Ссылка, ПутьНазначения);
+	ПутьКСсылке = Новый Файл(Ссылка).ПолноеИмя;
+	ПутьККаталогуНазначения = Новый Файл(ПутьНазначения).ПолноеИмя;
 
-	Если ФС.КаталогСуществует(Ссылка) Тогда 
+	Лог.Отладка("Создаю символическую ссылку %1 на %2", ПутьКСсылке, ПутьККаталогуНазначения);
+
+	Если ФС.КаталогСуществует(ПутьКСсылке) Тогда 
 
 		Лог.Отладка("Удаляю старую символическую ссылку");
 
 		Если ЭтоWindows Тогда 
-			УдалитьФайлы(Ссылка); 
+			УдалитьФайлы(ПутьКСсылке); 
 		Иначе 
 			Команда = Новый Команда; 
 			Команда.УстановитьКоманду("unlink");
-			Команда.ДобавитьПараметр(Ссылка);
+			Команда.ДобавитьПараметр(ПутьКСсылке);
 			Команда.Исполнить();
 
 			Лог.Отладка(Команда.ПолучитьВывод());
@@ -129,17 +132,17 @@
 		Команда = Новый Команда;
 		Команда.УстановитьКоманду("mklink");
 		Команда.ДобавитьПараметр("/D");
-		Команда.ДобавитьПараметр(Ссылка);
-		Команда.ДобавитьПараметр(ПутьНазначения);
+		Команда.ДобавитьПараметр(ПутьКСсылке);
+		Команда.ДобавитьПараметр(ПутьККаталогуНазначения);
 
 		Команда.Исполнить();
 		Лог.Отладка(Команда.ПолучитьВывод());
 	Иначе
 		Команда = Новый Команда;
 		Команда.УстановитьКоманду("ln");
 		Команда.ДобавитьПараметр("-s");
-		Команда.ДобавитьПараметр(ПутьНазначения);
-		Команда.ДобавитьПараметр(Ссылка);
+		Команда.ДобавитьПараметр(ПутьККаталогуНазначения);
+		Команда.ДобавитьПараметр(ПутьКСсылке);
 
 		Команда.Исполнить();