
        stream = atoi(Tcl_GetVar(interp,
                                 "spawn_id",0));
        timeout = atoi(Tcl_GetVar(interp,
                                  "timeout",0));
        
        Listing 4

