Index: TODO
===================================================================
diff -u -rc7738a386075dae91fb88e6a93232f37dfedc228 -rdbd850e0318af673e5f576a8c6fddaa8fef26715
--- TODO	(.../TODO)	(revision c7738a386075dae91fb88e6a93232f37dfedc228)
+++ TODO	(.../TODO)	(revision dbd850e0318af673e5f576a8c6fddaa8fef26715)
@@ -5872,6 +5872,9 @@
 
 - Added Rosetta example: https://rosettacode.org/wiki/Inheritance/Single
 
+- return from "nsf::current callinglevel" the value 0 (instead of 1), 
+  when it is called outside of a frame, which has a nsf object associated.
+
 ========================================================================
 TODO:
 
Index: generic/nsf.c
===================================================================
diff -u -rabfaf40513a46d383b26225ae222b5f48bbb1d7b -rdbd850e0318af673e5f576a8c6fddaa8fef26715
--- generic/nsf.c	(.../nsf.c)	(revision abfaf40513a46d383b26225ae222b5f48bbb1d7b)
+++ generic/nsf.c	(.../nsf.c)	(revision dbd850e0318af673e5f576a8c6fddaa8fef26715)
@@ -27463,7 +27463,7 @@
 
 /*
 cmd current NsfCurrentCmd {
-  {-argName "currentoption" -required 0 -type "proc|method|methodpath|object|class|activelevel|args|activemixin|calledproc|calledmethod|calledclass|callingproc|callingmethod|callingclass|callinglevel|callingobject|filterreg|isnextcall|next"}
+  {-argName "option" -required 0 -typeName "currentoption" -type "proc|method|methodpath|object|class|activelevel|args|activemixin|calledproc|calledmethod|calledclass|callingproc|callingmethod|callingclass|callinglevel|callingobject|filterreg|isnextcall|nextmethod" -default object}
 }
 */
 static int
@@ -27587,7 +27587,7 @@
 
   case CurrentoptionCallinglevelIdx:
     if (object == NULL) {
-      Tcl_SetIntObj(Tcl_GetObjResult(interp), 1);
+      Tcl_SetIntObj(Tcl_GetObjResult(interp), 0);
     } else {
       Tcl_SetObjResult(interp, ComputeLevelObj(interp, CALLING_LEVEL));
     }
Index: generic/nsfAPI.decls
===================================================================
diff -u -r308a9122fcd679ed416ce55670ea93aab4b87478 -rdbd850e0318af673e5f576a8c6fddaa8fef26715
--- generic/nsfAPI.decls	(.../nsfAPI.decls)	(revision 308a9122fcd679ed416ce55670ea93aab4b87478)
+++ generic/nsfAPI.decls	(.../nsfAPI.decls)	(revision dbd850e0318af673e5f576a8c6fddaa8fef26715)
@@ -301,7 +301,7 @@
 
 
 cmd current NsfCurrentCmd {
-  {-argName "option" -required 0 -typeName "currentoption" -type "proc|method|methodpath|object|class|activelevel|args|activemixin|calledproc|calledmethod|calledclass|callingproc|callingmethod|callingclass|callinglevel|callingobject|filterreg|isnextcall|nextmethod"}
+  {-argName "option" -required 0 -typeName "currentoption" -type "proc|method|methodpath|object|class|activelevel|args|activemixin|calledproc|calledmethod|calledclass|callingproc|callingmethod|callingclass|callinglevel|callingobject|filterreg|isnextcall|nextmethod" -default object}
 } {-nxdoc 1}
 cmd self NsfSelfCmd {
 } {-nxdoc 1}