http://purl.org/tcl/home/man/tcl8.4/TclCmd/case.htm

This Tcl command is obsolete and is supported only for
backward compatibility.  At some point in the future it may be
removed entirely.  You should use the [switch] command instead.

----