From fe9097018f81cff9e5ee26791d2dfa1d020ac300 Mon Sep 17 00:00:00 2001
From: Maxim Lihachev <envrm@yandex.ru>
Date: Fri, 6 Sep 2013 14:12:07 +0600
Subject: [PATCH] =?UTF-8?q?=D0=9E=D1=82=D0=BD=D0=BE=D1=81=D0=B8=D1=82?=
 =?UTF-8?q?=D0=B5=D0=BB=D1=8C=D0=BD=D1=8B=D0=B9=20=D0=BF=D1=83=D1=82=D1=8C?=
 =?UTF-8?q?=20=D0=BA=20=D1=88=D0=B0=D0=B1=D0=BB=D0=BE=D0=BD=D1=83=20mIRC?=
 =?UTF-8?q?=20=D0=B7=D0=B0=D0=BC=D0=B5=D0=BD=D1=91=D0=BD=20=D0=BD=D0=B0=20?=
 =?UTF-8?q?=D0=B0=D0=B1=D1=81=D0=BE=D0=BB=D1=8E=D1=82=D0=BD=D1=8B=D0=B9?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 join2irc.tcl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/join2irc.tcl b/join2irc.tcl
index 2c3647e..eaff2cf 100755
--- a/join2irc.tcl
+++ b/join2irc.tcl
@@ -1,7 +1,7 @@
 #!/usr/bin/env tclsh
 
 #Создан:  Пн 26 авг 2013 12:42:48
-#Изменён: Чт 29 авг 2013 12:20:10
+#Изменён: Пт 06 сен 2013 14:07:59
 
 #
 # (c) 2013, Maxim Lihachev, <envrm@yandex.ru>
@@ -67,7 +67,8 @@ if {$argc < 3} {
 } else {
 	getUserInfo {*}$argv
 
-	set TEMPLATE mIRC.tpl
+	set TEMPLATE [file join [file dirname [file normalize $argv0]] mIRC.tpl]
+
 	set BUNDLE   mIRC_[regsub {@.*$} $mIRC::MAIL {}]
 
 	makeBundle $TEMPLATE $BUNDLE