diff options
Diffstat (limited to 'generic/tclOOInfo.c')
| -rw-r--r-- | generic/tclOOInfo.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclOOInfo.c b/generic/tclOOInfo.c index b87877f..e0594e5 100644 --- a/generic/tclOOInfo.c +++ b/generic/tclOOInfo.c @@ -1784,7 +1784,7 @@ InfoClassPropCmd( SortPropList(result); } } else { - result = Tcl_NewObj(); + TclNewObj(result); if (writable) { FOREACH(propObj, clsPtr->properties.writable) { Tcl_ListObjAppendElement(NULL, result, propObj); @@ -1847,7 +1847,7 @@ InfoObjectPropCmd( SortPropList(result); } } else { - result = Tcl_NewObj(); + TclNewObj(result); if (writable) { FOREACH(propObj, oPtr->properties.writable) { Tcl_ListObjAppendElement(NULL, result, propObj); |