Error:
[09:15] Tcl error [revcheck]: wrong # args: should be "revcheck chan readfil readvar"

Code:
set txtfile "/home/alex/antrix-revcheck/current.txt"

proc revcheck {chan readfil readvar} {
      global txtfile
      set readfil [open $txtfile r]
      set readvar [read $readfil]
      close $readfil
      putserv "PRIVMSG $chan : $readvar"
}

bind pub -|- !rev revcheck