Index: generic/nsf.c
===================================================================
diff -u -N -rbc16933ea485c187cd8814bfd5b8418a97c0f3b5 -r8b19916c76c0df6859339c8de9ba53dcdaa29104
--- generic/nsf.c	(.../nsf.c)	(revision bc16933ea485c187cd8814bfd5b8418a97c0f3b5)
+++ generic/nsf.c	(.../nsf.c)	(revision 8b19916c76c0df6859339c8de9ba53dcdaa29104)
@@ -26556,7 +26556,7 @@
                                  tcd, ForwardCmdDeleteProc, 0);
     }
     if (likely(result == TCL_OK)) {
-      Tcl_SetObjResult(interp, MethodHandleObj(object, withPer_object, methodName));
+      Tcl_SetObjResult(interp, MethodHandleObj(object, (cl == NULL), methodName));
     }
   }