1 files changed, 3 insertions(+), 1 deletions(-)

M irc.tcl

@@ 414,6 414,7 @@ namespace eval ::irc {
   }
 
 
+  # documented
   proc ::irc::src {subcommand args} {
     switch -- $subcommand {
       parse {


@@ 437,7 438,7 @@ namespace eval ::irc {
           return server
         } else { return -code error "argument is not a src" }
       }
-      servername {
+      server {
         if {[llength $args] != 1} { return -code error "wrong # args: should be \"irc::src server servername\"" }
         lassign $args servername
         if ![irc::is src::servername $servername] { return -code error "argument is not a servername" }


@@ 469,6 470,7 @@ namespace eval ::irc {
     }
   }
 
+  # documented
   proc ::irc::tags {subcommand args} {
     switch -- $subcommand {
       exists {