[33b7abb8a2] [7174354ecb] Rewrite TclCompileThrowCmd().