*** tclPipe.c.orig	Thu Jan 22 12:28:02 2009
--- tclPipe.c	Thu Jan 22 13:44:29 2009
***************
*** 329,335 ****
                      Tcl_SetErrorCode(interp, "CHILDKILLED", msg1,
                              Tcl_SignalId((int) (WTERMSIG(waitStatus))), p,
                              NULL);
!                     Tcl_AppendResult(interp, "child killed: ", p, " waitstatus x%x\n", waitStatus, NULL);
  		} else if (WIFSTOPPED(waitStatus)) {
                      p = Tcl_SignalMsg((int) (WSTOPSIG(waitStatus)));
                      Tcl_SetErrorCode(interp, "CHILDSUSP", msg1,
--- 329,336 ----
                      Tcl_SetErrorCode(interp, "CHILDKILLED", msg1,
                              Tcl_SignalId((int) (WTERMSIG(waitStatus))), p,
                              NULL);
!                     sprintf(msg2, "0x%4.4x\n", waitStatus);
!                     Tcl_AppendResult(interp, "child killed: ", p, " waitstatus ", msg2, NULL);
  		} else if (WIFSTOPPED(waitStatus)) {
                      p = Tcl_SignalMsg((int) (WSTOPSIG(waitStatus)));
                      Tcl_SetErrorCode(interp, "CHILDSUSP", msg1,
