Index: generic/nsf.c
===================================================================
diff -u -N -r7c9627dd582ea07050a95a6e0bb05cdf381fe592 -r7f016c41be93886f1f8956afeec49f99c5b3a708
--- generic/nsf.c	(.../nsf.c)	(revision 7c9627dd582ea07050a95a6e0bb05cdf381fe592)
+++ generic/nsf.c	(.../nsf.c)	(revision 7f016c41be93886f1f8956afeec49f99c5b3a708)
@@ -18881,7 +18881,7 @@
 #ifdef OBJDELETION_TRACE
   fprintf(stderr, "TclDeletesObject %p obj->id %p flags %.6x\n", object, object->id, object->flags);
 #endif
-  if ((object->flags & NSF_DURING_DELETE) != 0u || (object->teardown != NULL)) {
+  if ((object->flags & NSF_DURING_DELETE) != 0u || (object->teardown == NULL)) {
     return;
   }
   interp = object->teardown;