Index: generic/nsf.c
===================================================================
diff -u -N -rc465bb71eaa7dc69655ccfa59bd8db39dbb46268 -rd5f0e46cd4b8ff19bb805ab0ea2eccead21be63f
--- generic/nsf.c	(.../nsf.c)	(revision c465bb71eaa7dc69655ccfa59bd8db39dbb46268)
+++ generic/nsf.c	(.../nsf.c)	(revision d5f0e46cd4b8ff19bb805ab0ea2eccead21be63f)
@@ -20637,14 +20637,10 @@
     Nsf_ltoa(buffer+1, (long)Tcl_CallFrame_level(framePtr), &l);
     resultObj = Tcl_NewStringObj(buffer, l+1);
   } else {
-    if (level == CALLING_LEVEL) {
-      resultObj = Tcl_NewStringObj("#0", 2);
-    } else {
-      /*
-       * If not called from an nsf frame, return 1 as default.
-       */
-      resultObj = Tcl_NewIntObj(1);
-    }
+    /*
+     * If not called from an nsf frame, return #0 as default.
+     */
+    resultObj = Tcl_NewStringObj("#0", 2);
   }
 
   return resultObj;