Index: Makefile.in
===================================================================
diff -u -r17ba2f1d86be4afd497d652b7ee39a5edc771a22 -r17880e63ccb02577a5c856aaa6344cd83028a07b
--- Makefile.in	(.../Makefile.in)	(revision 17ba2f1d86be4afd497d652b7ee39a5edc771a22)
+++ Makefile.in	(.../Makefile.in)	(revision 17880e63ccb02577a5c856aaa6344cd83028a07b)
@@ -404,6 +404,7 @@
 	$(TCLSH) $(src_test_dir_native)/info-method.test -libdir $(PLATFORM_DIR) $(TESTFLAGS)
 	$(TCLSH) $(src_test_dir_native)/submethods.test -libdir $(PLATFORM_DIR) $(TESTFLAGS)
 	$(TCLSH) $(src_test_dir_native)/disposition.test -libdir $(PLATFORM_DIR) $(TESTFLAGS)
+	$(TCLSH) $(src_test_dir_native)/volatile.test -libdir $(PLATFORM_DIR) $(TESTFLAGS)
 	$(TCLSH) $(src_test_dir_native)/parameters.test -libdir $(PLATFORM_DIR) $(TESTFLAGS)
 	$(TCLSH) $(src_test_dir_native)/returns.test -libdir $(PLATFORM_DIR) $(TESTFLAGS)
 	$(TCLSH) $(src_test_dir_native)/method-require.test -libdir $(PLATFORM_DIR) $(TESTFLAGS)
Index: TODO
===================================================================
diff -u -r551a41a1d6502070f966b5f0be2559cf3fe12804 -r17880e63ccb02577a5c856aaa6344cd83028a07b
--- TODO	(.../TODO)	(revision 551a41a1d6502070f966b5f0be2559cf3fe12804)
+++ TODO	(.../TODO)	(revision 17880e63ccb02577a5c856aaa6344cd83028a07b)
@@ -3016,7 +3016,15 @@
    * provided flags to VarExists instead of multiple args
    * don't add new pointer entries in Nsf_PointerTypeLookup()
 
+- preliminary fix for volatile called through redsidual args
+- new regression test file volatile.test
+
+
 TODO:
+
+- fix the comparison with "unknown" in residual args 
+  (2 places marked with "//yyyy" )
+
 - extend mongo::gridfs::store_file with a switch -metadata to
   pass metadata together at gridfs file creation time
 
Index: generic/nsf.c
===================================================================
diff -u -r551a41a1d6502070f966b5f0be2559cf3fe12804 -r17880e63ccb02577a5c856aaa6344cd83028a07b
--- generic/nsf.c	(.../nsf.c)	(revision 551a41a1d6502070f966b5f0be2559cf3fe12804)
+++ generic/nsf.c	(.../nsf.c)	(revision 17880e63ccb02577a5c856aaa6344cd83028a07b)
@@ -14823,10 +14823,12 @@
 	     * Provide warnings for double-settings.
 	     */
 	    if (pcPtr->flags[j] & NSF_ARG_SET) {
-	      NsfLog(interp, NSF_LOG_WARN, "Non-positional parameter %s was passed more than once (%s%s%s)",
+	      Tcl_Obj *cmdLineObj = Tcl_NewListObj(objc-1, objv+1);
+	      NsfLog(interp, NSF_LOG_WARN, "Non-positional parameter %s was passed more than once (%s%s%s %s)",
 		     nppPtr->name,
 		     object ? ObjectName(object) : "", object ? " method " : "",
-		     ObjStr(procNameObj));
+		     ObjStr(procNameObj), ObjStr(cmdLineObj));
+	      DECR_REF_COUNT(cmdLineObj);
 	    }
 	    pcPtr->flags[j] |= NSF_ARG_SET;
 
@@ -18881,8 +18883,9 @@
 	 * does not use this as a base frame, and methods like
 	 * activelevel ignore it.
 	 */
+	//yyyy
 	cscPtr->frameType = NSF_CSC_TYPE_INACTIVE;
-	
+
 	/*
 	 * If "method=" was given, use it as method name
 	 */
@@ -19261,6 +19264,28 @@
   CONST char *methodName, *nextMethodName, *initString = NULL;
   Tcl_Obj **argv, **nextArgv;
 
+  //yyyy
+  CallFrame *savedVarFramePtr = Tcl_Interp_varFramePtr(interp);
+  CallFrame *callerPtr = savedVarFramePtr->callerPtr;
+  if (callerPtr->callerPtr) { callerPtr = callerPtr->callerPtr;}
+
+  // We seem to have problems in cases, -volatile is called via unknown
+  // TODO: fixme, the comparison with "unknown" can't be the solution
+  if ((Tcl_CallFrame_isProcCallFrame(callerPtr) & FRAME_IS_NSF_METHOD)) {
+    NsfCallStackContent *cscPtr = (NsfCallStackContent *)Tcl_CallFrame_clientData(callerPtr);
+    CONST char *methodName = cscPtr && cscPtr->cmdPtr ? Tcl_GetCommandName(interp, cscPtr->cmdPtr) : "";
+    if (strcmp(methodName, "unknown") == 0) {
+      //fprintf(stderr, "ONE MORE\n");
+      if (callerPtr->callerPtr) { callerPtr = callerPtr->callerPtr;}
+    }
+  }
+
+  callerPtr = (CallFrame *)CallStackGetActiveProcFrame((Tcl_CallFrame *)callerPtr);
+
+  //fprintf(stderr, "CHANGE FRAME to %p\n", callerPtr);
+  //NsfShowStack(interp);
+  Tcl_Interp_varFramePtr(interp) = callerPtr;
+
 #if 0
   fprintf(stderr, "NsfOResidualargsMethod %s %2d ",ObjectName(object), objc);
   for(i=0; i<objc; i++) {fprintf(stderr, " [%d]=%s,", i, ObjStr(objv[i]));}
@@ -19327,6 +19352,8 @@
    */
   result = DispatchInitMethod(interp, object, normalArgs, objv+1, 0);
 
+  Tcl_Interp_varFramePtr(interp) = savedVarFramePtr;
+
   /*
    * Return the non-processed leading arguments (XOTcl convention)
    */
@@ -19473,8 +19500,9 @@
     NsfObjectOpt *opt = NsfRequireObjectOpt(object);
 
     /*fprintf(stderr, "### setting trace for %s on frame %p\n", fullName,
-      Tcl_Interp_varFramePtr(interp));
-      NsfShowStack(interp);*/
+	    Tcl_Interp_varFramePtr(interp));
+            NsfShowStack(interp);*/
+
     result = Tcl_TraceVar(interp, vn, TCL_TRACE_UNSETS,
 			  (Tcl_VarTraceProc *)NsfUnsetTrace,
                           objPtr);
Index: generic/nsfStack.c
===================================================================
diff -u -r65ec5477000f631789c0809b8a832f45e1b634a4 -r17880e63ccb02577a5c856aaa6344cd83028a07b
--- generic/nsfStack.c	(.../nsfStack.c)	(revision 65ec5477000f631789c0809b8a832f45e1b634a4)
+++ generic/nsfStack.c	(.../nsfStack.c)	(revision 17880e63ccb02577a5c856aaa6344cd83028a07b)
@@ -458,7 +458,8 @@
   /* Get the first active non object frame */
   framePtr = CallStackGetActiveProcFrame(inFramePtr);
 
-  /*fprintf(stderr,"... use frameptr %p \n", framePtr);*/
+  /*fprintf(stderr,"... CallStackUseActiveFrame uses varFramePtr %p (%d)\n", 
+    framePtr, inFramePtr == framePtr);*/
 
   if (inFramePtr == framePtr) {
     /* call frame pointers are fine */
Index: tests/volatile.test
===================================================================
diff -u
--- tests/volatile.test	(revision 0)
+++ tests/volatile.test	(revision 17880e63ccb02577a5c856aaa6344cd83028a07b)
@@ -0,0 +1,85 @@
+# -*- Tcl -*-
+package req nx::test
+package req XOTcl
+
+#
+# Wrapper to call a command in a proc/method
+#
+proc bar {args} {
+  set c [{*}$args]
+  set empty [expr {[info command $c] eq ""}]
+  ? [list set _ $empty] 0 "bar: $c destroyed too early"
+  return $c
+}
+
+#
+# Create NX objects with volatile through the wrapper
+#
+proc foon {} {
+  #puts stderr ====2
+  set c [bar C create c1 -volatile {:method destroy {} {#puts "[self] destroy";next}}]
+  ? [list info command $c] "" "foon: $c destroyed too late"
+
+  #puts stderr ====3
+  set c [bar C new -volatile {:method destroy {} {#puts "[self] destroy";next}}]
+  ? [list info command $c] "" "foon: $c destroyed too late"
+}
+
+#
+# Create XOTcl objects with volatile through the wrapper
+#
+proc foox {} {
+  #puts stderr ====1
+  set c [bar XC c1 -volatile -proc destroy {} {#puts "[self] destroy";next}]
+  ? [list info command $c] "" "foox: $c destroyed too late"
+
+  #puts stderr ====2
+  set c [bar XC create c1 -volatile -proc destroy {} {#puts "[self] destroy";next}]
+  ? [list info command $c] "" "foox: $c destroyed too late"
+
+  #puts stderr ====3
+  set c [bar XC new -volatile -proc destroy {} {#puts "[self] destroy";next}]
+  ? [list info command $c] "" "foox: $c destroyed too late"
+}
+
+#
+# Producer classes in NX and XOTcl 
+#
+::nx::Class create C
+::xotcl::Class create XC
+
+# 
+# Create a NX class using foox, foon, and bar as methods
+#
+nx::Class create D {
+  #
+  # call volatile in nsf method bar
+  #
+  :method bar {args} [info body ::bar]
+  :public method foox {} [string map [list bar :bar] [info body ::foox]]
+  :public method foon {} [string map [list bar :bar] [info body ::foon]]
+  #
+  # call volatile in tcl proc bar
+  #
+  :public method foox2 {} [info body ::foox]
+  :public method foon2 {} [info body ::foon]
+}
+
+D create d1
+nx::Test case methods-methods {
+  d1 foox
+  d1 foon
+}
+
+nx::Test case methods-procs {
+  d1 foox2
+  d1 foon2
+}
+
+#
+# Call just in tcl procs
+#
+nx::Test case procs-procs {
+  ::foox
+  ::foon
+}