===================================================================
RCS file: tclBasic.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -c -5 -r1.1 -r1.2
*** 1.1	1994/07/03 04:18:30
--- 1.2	1994/08/28 01:36:03
***************
*** 945,955 ****
  		continue;
  	    }
  	    saved = *src;
  	    *src = 0;
  	    (*tracePtr->proc)(tracePtr->clientData, interp, iPtr->numLevels,
! 		    cmdStart, cmdPtr->proc, cmdPtr->clientData, argc, argv);
  	    *src = saved;
  	}
  
  	/*
  	 * At long last, invoke the command procedure.  Reset the
--- 945,956 ----
  		continue;
  	    }
  	    saved = *src;
  	    *src = 0;
  	    (*tracePtr->proc)(tracePtr->clientData, interp, iPtr->numLevels,
! 			cmd, cmdStart, cmdPtr->proc, cmdPtr->clientData,
! 			argc, argv);
  	    *src = saved;
  	}
  
  	/*
  	 * At long last, invoke the command procedure.  Reset the
===================================================================
RCS file: tcl.h,v
retrieving revision 1.1
retrieving revision 1.2
diff -c -5 -r1.1 -r1.2
*** 1.1	1994/07/03 04:18:30
--- 1.2	1994/08/28 01:36:00
***************
*** 169,180 ****
  	Tcl_Interp *interp, int code));
  typedef void (Tcl_CmdDeleteProc) _ANSI_ARGS_((ClientData clientData));
  typedef int (Tcl_CmdProc) _ANSI_ARGS_((ClientData clientData,
  	Tcl_Interp *interp, int argc, char *argv[]));
  typedef void (Tcl_CmdTraceProc) _ANSI_ARGS_((ClientData clientData,
! 	Tcl_Interp *interp, int level, char *command, Tcl_CmdProc *proc,
! 	ClientData cmdClientData, int argc, char *argv[]));
  typedef void (Tcl_FreeProc) _ANSI_ARGS_((char *blockPtr));
  typedef void (Tcl_InterpDeleteProc) _ANSI_ARGS_((ClientData clientData,
  	Tcl_Interp *interp));
  typedef int (Tcl_MathProc) _ANSI_ARGS_((ClientData clientData,
  	Tcl_Interp *interp, Tcl_Value *args, Tcl_Value *resultPtr));
--- 169,180 ----
  	Tcl_Interp *interp, int code));
  typedef void (Tcl_CmdDeleteProc) _ANSI_ARGS_((ClientData clientData));
  typedef int (Tcl_CmdProc) _ANSI_ARGS_((ClientData clientData,
  	Tcl_Interp *interp, int argc, char *argv[]));
  typedef void (Tcl_CmdTraceProc) _ANSI_ARGS_((ClientData clientData,
! 	Tcl_Interp *interp, int level, char *env, char *command,
! 	Tcl_CmdProc *proc, ClientData cmdClientData, int argc, char *argv[]));
  typedef void (Tcl_FreeProc) _ANSI_ARGS_((char *blockPtr));
  typedef void (Tcl_InterpDeleteProc) _ANSI_ARGS_((ClientData clientData,
  	Tcl_Interp *interp));
  typedef int (Tcl_MathProc) _ANSI_ARGS_((ClientData clientData,
  	Tcl_Interp *interp, Tcl_Value *args, Tcl_Value *resultPtr));
