вопрос об исходном тексте на Tcl

У меня есть файл с именем test7.tcl:

namespace eval ::dai {
   variable name "ratzip"
   variable birthday "1982"
   proc hello {} {
      variable name
      variable birthday
      puts "Hello, I am $name birthday is $birthday"
   }
}

, и я хочу передать этот файл в другой файл, называемый test8.tcl таким образом :

source test7.tcl

::dai::hello

но это дает мне ошибку: не удалось прочитать файл "test7.tcl": нет такого файла или каталога

, но два файла находятся в одной папке, что случилось?