(gdb) bt
#0  0xb7e8cde6 in InfoFrameCmd (dummy=0x0, interp=0x8055770, objc=1, objv=0xb68f8b4) at
#1  0xb7e734ef in Dispatch (data=0xada4b5c, interp=0x8055770, result=0) at
#2  0xb7e78b4f in TclNRRunCallbacks result=0, at
#3  0xb7e7c68f in TclEvalObjEx at
#4  0xb7e7c6db in Tcl_EvalObjEx objPtr=0xb688bc0, at
#5  0xb7f54508 in AfterProc (clientData=0x97e49b0) at
#6  0xb7f54854 in TimerHandlerEventProc at
#7  0xb7f31da3 in Tcl_ServiceEvent at
#8  0xb7f3203e in Tcl_DoOneEvent at
#9  0xb7ef12cc in Tcl_VwaitObjCmd (clientData=0x0, interp=0x8055770, objc=2, objv=0x805ca30) at
#10 0xb7e734ef in Dispatch (data=0xac8d824, interp=0x8055770, result=0) at
#11 0xb7e78b4f in TclNRRunCallbacks result=0, at
#12 0xb7e78c7f in Tcl_EvalObjv at
#13 0xb7e7a168 in TclEvalEx script=0x80b0808 "# H.tcl - light Httpd 1.1\nif {[info exists argv0] && ($argv0 eq [info script])} {\n    apply {{} home [file dirname [file normalize [info ::auto_path $home [file join [file di"..., numBytes=5472, line=1876, outerScript=0x80b0808 "# H.tcl - light Httpd 1.1\nif {[info exists argv0] && ($argv0 eq [info script])} {\n    apply {{} home [file dirname [file normalize [info ::auto_path $home [file join [file di"...) at
#14 0xb7f25221 in Tcl_FSEvalFileEx encodingName=0x0) at
#15 0xb7f2beab in Tcl_MainEx (argc=<optimised out>, argv=<optimised out>, <Tcl_AppInit>, interp=0x8055770) at
#16 0x0804868a in main (argc=2, argv=0xbffff674) at
(gdb)