Looking at mini1.1.tcl in tclhttpd search the the line:

    append data(mime,$data($key)) " " $value

it should be
    append data(mime,$data(key)) " " $value

From Ralf Fassel: Looks like an obvious copy/paste error to me (data(key) is set in the first branch as a lookup-cache for the second branch).