Index: generic/nsf.c
===================================================================
diff -u -r5fc10090d62e8d8a53d79f526debc705056f1007 -r81e25e92cc33c8958b20b79abcbba0dec2ae2725
--- generic/nsf.c	(.../nsf.c)	(revision 5fc10090d62e8d8a53d79f526debc705056f1007)
+++ generic/nsf.c	(.../nsf.c)	(revision 81e25e92cc33c8958b20b79abcbba0dec2ae2725)
@@ -11371,9 +11371,23 @@
   return result;
 }
 
-
 /*
- * "self" object command
+ *----------------------------------------------------------------------
+ * FindSelfNext --
+ *
+ *    This function is called via [current next] to set the result of the
+ *    interp to the method which would be called by [next]. If there are more
+ *    shadowed methods along the precedence path, it sets the result of the
+ *    next method in form of a method handle. If there are no more shadowed
+ *    procs, the result is set to empty.
+ *
+ * Results:
+ *    Tcl return code
+ *
+ * Side effects:
+ *    Set Tcl result.
+ *
+ *----------------------------------------------------------------------
  */
 
 static int
@@ -11403,6 +11417,22 @@
   return result;
 }
 
+/*
+ *----------------------------------------------------------------------
+ * ComputeLevelObj --
+ *
+ *    This function comptes a fresh Tcl_Obj refering to the interp level. The
+ *    caller has to care about freeing the returned Tcl_Obj.
+ *
+ * Results:
+ *    Tcl_Obj *
+ *
+ * Side effects:
+ *    Allocates a new Tcl_Obj
+ *
+ *----------------------------------------------------------------------
+ */
+
 static Tcl_Obj *
 ComputeLevelObj(Tcl_Interp *interp, CallStackLevel level) {
   Tcl_CallFrame *framePtr;