Picol, a Tcl interpreter in 550 lines of C

Other interesting Tcl interpreter is hiccup, implemented in Haskell

http://code.google.com/p/hiccup/