Index: generic/nsf.c =================================================================== diff -u -r8854eeff1e1b2d5fde52ee4f71b1e2b7844b2dea -r63fb7c118c69ff1a2753b65d222f59151b6a6906 --- generic/nsf.c (.../nsf.c) (revision 8854eeff1e1b2d5fde52ee4f71b1e2b7844b2dea) +++ generic/nsf.c (.../nsf.c) (revision 63fb7c118c69ff1a2753b65d222f59151b6a6906) @@ -22816,6 +22816,13 @@ if ((tcd->flags & NSF_PROC_FLAG_AD) != 0) { Tcl_ListObjAppendElement(interp, resultObj, Tcl_NewStringObj("-ad", 3)); } + if ((Tcl_Command_flags(tcd->wrapperCmd) & NSF_CMD_DEBUG_METHOD) != 0) { + Tcl_ListObjAppendElement(interp, resultObj, Tcl_NewStringObj("-debug", 6)); + } + if ((Tcl_Command_flags(tcd->wrapperCmd) & NSF_CMD_DEPRECATED_METHOD) != 0) { + Tcl_ListObjAppendElement(interp, resultObj, Tcl_NewStringObj("-deprecated",11)); + } + Tcl_ListObjAppendElement(interp, resultObj, Tcl_NewStringObj(Tcl_DStringValue(dsPtr), Tcl_DStringLength(dsPtr)));