Index: TODO
===================================================================
diff -u -rf7bd273b3e8b6929dcb662c66a8e870d467190da -raef3573d5885ec29f7ae7a5dc29a2b43e76b506c
--- TODO	(.../TODO)	(revision f7bd273b3e8b6929dcb662c66a8e870d467190da)
+++ TODO	(.../TODO)	(revision aef3573d5885ec29f7ae7a5dc29a2b43e76b506c)
@@ -2119,6 +2119,7 @@
    NSF_WITH_INHERIT_NAMESPACES
    NSF_WITH_OS_RESOLVER
    NSF_WITH_ASSERTIONS
+- added flag NSF_WITH_VALUE_WARNINGS
 
 
 TODO:
Index: generic/nsf.c
===================================================================
diff -u -rdbb46164bb74315ad51015c87b034637ad574034 -raef3573d5885ec29f7ae7a5dc29a2b43e76b506c
--- generic/nsf.c	(.../nsf.c)	(revision dbb46164bb74315ad51015c87b034637ad574034)
+++ generic/nsf.c	(.../nsf.c)	(revision aef3573d5885ec29f7ae7a5dc29a2b43e76b506c)
@@ -8823,12 +8823,6 @@
 }
 
 static int
-ListMethodHandle(Tcl_Interp *interp, NsfObject *object, int withPer_object, CONST char *methodName) {
-  Tcl_SetObjResult(interp, MethodHandleObj(object, withPer_object, methodName));
-  return TCL_OK;
-}
-
-static int
 MakeProc(Tcl_Namespace *nsPtr, NsfAssertionStore *aStore, Tcl_Interp *interp,
          Tcl_Obj *nameObj, Tcl_Obj *args, Tcl_Obj *body, Tcl_Obj *precondition,
          Tcl_Obj *postcondition, NsfObject *object,
@@ -8904,7 +8898,8 @@
         Tcl_Command_flags((Tcl_Command)procPtr->cmdPtr) |= NSF_CMD_PROTECTED_METHOD;
       }
 #endif
-      result = ListMethodHandle(interp, object, withPer_object, methodName);
+      Tcl_SetObjResult(interp, MethodHandleObj(object, withPer_object, methodName));
+      result = TCL_OK;
     }
   }
   Tcl_PopCallFrame(interp);
@@ -12600,7 +12595,8 @@
     switch (subcmd) {
     case InfomethodsubcmdHandleIdx:
       {
-        return ListMethodHandle(interp, regObject, withPer_object, methodName);
+	Tcl_SetObjResult(interp, MethodHandleObj(regObject, withPer_object, methodName));
+	return TCL_OK;
       }
     case InfomethodsubcmdArgsIdx:
       {
@@ -13480,7 +13476,8 @@
         newCmd,methodName,Tcl_Command_flags(newCmd), tcd);*/
     }
 
-    result = ListMethodHandle(interp, object, cl == NULL, methodName);
+    Tcl_SetObjResult(interp, MethodHandleObj(object, cl == NULL, methodName));
+    result = TCL_OK;
   }
 
   return result;
@@ -13994,7 +13991,7 @@
                                       (ClientData)tcd, ForwardCmdDeleteProc, 0);
     }
     if (result == TCL_OK) {
-      result = ListMethodHandle(interp, object, cl == NULL, methodName);
+      Tcl_SetObjResult(interp, MethodHandleObj(object, withPer_object, methodName));
     }
   }
 
@@ -15177,7 +15174,7 @@
                                   (ClientData)setterClientData, SetterCmdDeleteProc, 0);
   }
   if (result == TCL_OK) {
-    result = ListMethodHandle(interp, object, cl == NULL, methodName);
+    Tcl_SetObjResult(interp, MethodHandleObj(object, cl == NULL, methodName));
   } else {
     SetterCmdDeleteProc((ClientData)setterClientData);
   }
@@ -16848,7 +16845,8 @@
     return TCL_OK;
 
   fcl = cmdList->clorobj;
-  return ListMethodHandle(interp, (NsfObject*)fcl, !NsfObjectIsClass(&fcl->object), filterName);
+  Tcl_SetObjResult(interp, MethodHandleObj((NsfObject*)fcl, !NsfObjectIsClass(&fcl->object), filterName));
+  return TCL_OK;
 }
 
 /*