 set stime    [ timestamp -format "%Y/%m/%d %H:%M:%S"]
 set filetime [ timestamp -format "%Y%m%d_%H%M%S"]
 
-#puts "\033]0;$host $filetime\007"
-
 send -s "\r"
 
 expect timeout {

  set logdir "$env(HOME)/store/work/_archives_worklogs/"
}

set send_slow {10 .01}
set timeout 90

if { $argc == 0 } {

#        send_user "\nUnknown choice\n"
#      }
#    }

    \001l {
      send "\r"
      expect " > " {
