@@ -1,8 +1,10 @@
+#! /usr/bin/env tclsh
+
+set auto_path [linsert $auto_path 0 [file normalize [file join [file dirname [info script]] ..]]]
 package require tls
 
 set s [tls::socket 127.0.0.1 12300]
 puts $s "A line"
 flush $s
 puts [join [tls::status $s] \n]
 exit
-