Argument counts are broken?

[skx]

The following code runs:

proc foo {} {
   if { 1 } {
      return "steve"
   } else {
       return "bar"
   }
    puts "I'm still here ..?"
}

foo 1

Obviously foo should take zero arguments, but calling like that fails:

$ ./critical a.tcl
Error running program:function argument mismatch, foo takes 1 arguments, 0 supplied

This is the first of two issues with that same piece of code. See also #16.