Index: TODO
===================================================================
diff -u -r08dedaca6e7654b181f4d33d918bc3b9737fed71 -r92d76b822a1e97784dfaddad7fd083357340293b
--- TODO	(.../TODO)	(revision 08dedaca6e7654b181f4d33d918bc3b9737fed71)
+++ TODO	(.../TODO)	(revision 92d76b822a1e97784dfaddad7fd083357340293b)
@@ -5577,6 +5577,9 @@
 
 - removed  NsfParamDefs.slotObj (and single occurance for memory-management)
   since it is not used for the time being
+- fix potential bug on tcl-triggered cmd-delete operations, where 
+  destroy returns non-TCL_OK and name of the object could not be 
+  retrieved anymore in error message.
 
 ========================================================================
 TODO:
Index: generic/nsf.c
===================================================================
diff -u -ra4eaf4e3ffe74b1d29777daf3b048550a5de4c0c -r92d76b822a1e97784dfaddad7fd083357340293b
--- generic/nsf.c	(.../nsf.c)	(revision a4eaf4e3ffe74b1d29777daf3b048550a5de4c0c)
+++ generic/nsf.c	(.../nsf.c)	(revision 92d76b822a1e97784dfaddad7fd083357340293b)
@@ -5461,7 +5461,7 @@
              * the command anyway, since its parent is currently being
              * deleted.
              */
-            if (object->teardown != NULL) {
+            if (object->teardown != NULL && (object->flags & NSF_DURING_DELETE) == 0u) {
               NsfLog(interp, NSF_LOG_NOTICE, "Destroy failed for object %s, perform low level deletion",
                      ObjectName(object));
               CallStackDestroyObject(interp, object);