summaryrefslogtreecommitdiffstats
path: root/generic/tclOO.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclOO.c')
-rw-r--r--generic/tclOO.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclOO.c b/generic/tclOO.c
index a428aba..ea008be 100644
--- a/generic/tclOO.c
+++ b/generic/tclOO.c
@@ -8,7 +8,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclOO.c,v 1.27 2010/01/28 10:25:04 dkf Exp $
+ * RCS: @(#) $Id: tclOO.c,v 1.28 2010/01/28 13:57:47 dkf Exp $
*/
#ifdef HAVE_CONFIG_H
@@ -575,7 +575,7 @@ AllocObject(
cmdPtr->nreProc = PrivateNRObjectCmd;
Tcl_SetHashValue(cmdPtr->hPtr, cmdPtr);
oPtr->myCommand = (Tcl_Command) cmdPtr;
- cmdPtr->tracePtr = trace = (CommandTrace *)
+ cmdPtr->tracePtr = tracePtr = (CommandTrace *)
ckalloc(sizeof(CommandTrace));
tracePtr->traceProc = MyDeletedTrace;
tracePtr->clientData = oPtr;