Index: TODO
===================================================================
diff -u -N -r6ff35667cb941876d733d755f49a6530fa2fb929 -r77f50f6c6304355d638d5bf6f172d404940447de
--- TODO	(.../TODO)	(revision 6ff35667cb941876d733d755f49a6530fa2fb929)
+++ TODO	(.../TODO)	(revision 77f50f6c6304355d638d5bf6f172d404940447de)
@@ -4252,10 +4252,14 @@
   (since "properties" or "variables" are returned")
 - extended regression test
 
+nsf.c:
+- factored out ParameterMethodForwardDispatch() to
+  call a parameter method defined as a forwarder
+  the smae way from "configure" and "cget"
+- extended regression test
+
 ========================================================================
 TODO:
-- finalize handling of parameter methods in cget
-  * handling of extra args in parameter methods?
 - "/obj|cls/ info slot definition" should return a full command
   (containing flags and property|variable)
 - regression tests for "/obj/ info lookup parameter ...."
Index: generic/nsf.c
===================================================================
diff -u -N -r200af46a04ef0a09e4d27b6662a5a49b82c8ba52 -r77f50f6c6304355d638d5bf6f172d404940447de
--- generic/nsf.c	(.../nsf.c)	(revision 200af46a04ef0a09e4d27b6662a5a49b82c8ba52)
+++ generic/nsf.c	(.../nsf.c)	(revision 77f50f6c6304355d638d5bf6f172d404940447de)
@@ -12521,6 +12521,94 @@
 
 /*
  *----------------------------------------------------------------------
+ * ParameterMethodForwardDispatch --
+ *
+ *    Dispatch a forwarding method provided via parameter definition. 
+ *
+ *    The current implementation performs for every object
+ *    parameter forward the full cycle of
+ *
+ *     (a) splitting the spec,
+ *     (b) convert it to a the client data structure,
+ *     (c) invoke forward,
+ *     (d) free client data structure
+ *
+ *    In the future, it should convert to the client data
+ *    structure just once and free it with the disposal of the
+ *    parameter. This could be achieved
+ *
+ * Results:
+ *    Tcl result code
+ *
+ * Side effects:
+ *    The called function might side-effect.
+ *
+ *----------------------------------------------------------------------
+ */
+static int
+ParameterMethodForwardDispatch(Tcl_Interp *interp, NsfObject *object, 
+			       Nsf_Param *paramPtr, Tcl_Obj *newValue,
+			       NsfCallStackContent *cscPtr) {
+
+  Tcl_Obj **nobjv, *ov[3], *methodObj, *forwardSpec;
+  ForwardCmdClientData *tcd = NULL;
+  int result, oc, nobjc;
+    
+  assert(paramPtr->flags & NSF_ARG_FORWARD);
+
+  /*
+
+   */
+  forwardSpec = paramPtr->method ? paramPtr->method : NULL; /* different default? */
+  if (forwardSpec == NULL) {
+    return NsfPrintError(interp, "no forward spec available\n");
+  }
+
+  result = Tcl_ListObjGetElements(interp, forwardSpec, &nobjc, &nobjv);
+  if (result != TCL_OK) {
+    return result;
+  } 
+
+  methodObj = paramPtr->nameObj;
+  result = ForwardProcessOptions(interp, methodObj,
+				 NULL /*withDefault*/, 0 /*withEarlybinding*/,
+				 NULL /*withMethodprefix*/, 0 /*withObjframe*/,
+				 NULL /*withOnerror*/, 0 /*withVerbose*/,
+				 nobjv[0], nobjc-1, nobjv+1, &tcd);
+  if (result != TCL_OK) {
+    if (tcd) ForwardCmdDeleteProc(tcd);
+    return result;
+  }
+  
+  /*fprintf(stderr, "parameter %s forward spec <%s> After Options obj %s method %s\n",
+	  ObjStr(paramPtr->nameObj), ObjStr(forwardSpec),
+	  ObjectName(object), ObjStr(methodObj));*/
+  
+  tcd->object = object;
+  oc = 1;
+  ov[0] = methodObj;
+  if (paramPtr->nrArgs == 1 && newValue) {
+    ov[oc] = newValue;
+    oc ++;
+  }
+  
+  /*
+   * Mark the intermittent CSC frame as INACTIVE, so that, e.g.,
+   * call-stack traversals seeking active frames ignore it.
+   */	
+  if (cscPtr) {
+    cscPtr->frameType = NSF_CSC_TYPE_INACTIVE;
+  }
+  
+  result = NsfForwardMethod(tcd, interp, oc, ov);
+  ForwardCmdDeleteProc(tcd);
+
+  return result;
+}
+ 
+
+/*
+ *----------------------------------------------------------------------
  * ParameterMethodDispatch --
  *
  *    Dispatch a method provided via parameter definition. The function checks
@@ -12532,7 +12620,7 @@
  *    Tcl result code
  *
  * Side effects:
- *    The called function might sideeffect.
+ *    The called function might side-effect.
  *
  *----------------------------------------------------------------------
  */
@@ -12628,7 +12716,7 @@
     } else {
       /*
        * A simple alias, receives no (when noarg was specified) or a
-       * single argument (default).
+       * single argument (which might be the default value).
        */
       if (paramPtr->nrArgs == 1) {
 	oc = 1;
@@ -12659,68 +12747,13 @@
 				     ov0, oc, ovPtr, 
 				     NSF_CSC_IMMEDIATE|NSF_CM_IGNORE_PERMISSIONS);
     }
-  } else /* must be NSF_ARG_FORWARD */ {
-    Tcl_Obj *forwardSpec = paramPtr->method ? paramPtr->method : NULL; /* different default? */
-    Tcl_Obj **nobjv, *ov[3];
-    int nobjc;
-    
+  } else {
+
+    /* must be NSF_ARG_FORWARD */
     assert(paramPtr->flags & NSF_ARG_FORWARD);
-    
-    /*
-     * The current implementation performs for every object
-     * parameter forward the full cycle of
-     *
-     *  (a) splitting the spec,
-     *  (b) convert it to a the client data structure,
-     *  (c) invoke forward,
-     *  (d) free client data structure
-     *
-     * In the future, it should convert to the client data
-     * structure just once and free it with the disposal of the
-     * parameter. This could be achieved
-     */
-    if (forwardSpec == NULL) {
-      result = NsfPrintError(interp, "no forward spec available\n");
-      goto method_arg_done;
-    }
-    result = Tcl_ListObjGetElements(interp, forwardSpec, &nobjc, &nobjv);
-    if (result != TCL_OK) {
-      goto method_arg_done;
-    } else {
-      Tcl_Obj *methodObj = paramPtr->nameObj;
-      ForwardCmdClientData *tcd = NULL;
-      int oc = 1;
-      
-      result = ForwardProcessOptions(interp, methodObj,
-				     NULL /*withDefault*/, 0 /*withEarlybinding*/,
-				     NULL /*withMethodprefix*/, 0 /*withObjframe*/,
-				     NULL /*withOnerror*/, 0 /*withVerbose*/,
-				     nobjv[0], nobjc-1, nobjv+1, &tcd);
-      if (result != TCL_OK) {
-	if (tcd) ForwardCmdDeleteProc(tcd);
-	goto method_arg_done;
-      }
-      
-      /*fprintf(stderr, "parameter %s forward spec <%s> After Options obj %s method %s\n",
-	ObjStr(paramPtr->nameObj), ObjStr(forwardSpec),
-	ObjectName(object), ObjStr(methodObj));*/
-      
-      tcd->object = object;
-      ov[0] = methodObj;
-      if (paramPtr->nrArgs == 1) {
-	ov[oc] = newValue;
-	oc ++;
-      }
-      
-      /*
-       * Mark the intermittent CSC frame as INACTIVE, so that, e.g.,
-       * call-stack traversals seeking active frames ignore it.
-       */	
-      cscPtr->frameType = NSF_CSC_TYPE_INACTIVE;
-      
-      result = NsfForwardMethod(tcd, interp, oc, ov);
-      ForwardCmdDeleteProc(tcd);
-    }
+
+    result = ParameterMethodForwardDispatch(interp, object, 
+					    paramPtr, newValue, cscPtr);
   }
  method_arg_done:
   /*
@@ -15956,7 +15989,7 @@
   *outputincr = 1;
   p = ForwardArgString;
 
-  /*fprintf(stderr, "ForwardArg: processing '%s'\n", ForwardArgString);*/
+  /* fprintf(stderr, "ForwardArg: processing '%s'\n", ForwardArgString);*/
 
   if (c == '%' && *(ForwardArgString+1) == '@') {
     char *remainder = NULL;
@@ -16041,7 +16074,7 @@
           ObjStr(listElements[nrPosArgs]));*/
         *out = listElements[nrPosArgs];
       } else if (objc <= 1) {
-	return NsfObjWrongArgs(interp, "wrong # args", objv[0], NULL, "option");
+	return NsfObjWrongArgs(interp, "%1 requires argument;", objv[0], NULL, "arg ...");
       } else {
         /*fprintf(stderr, "copying %%1: '%s'\n", ObjStr(objv[firstPosArg]));*/
         *out = objv[firstPosArg];
@@ -16284,7 +16317,8 @@
 
     ALLOC_ON_STACK(Tcl_Obj*, totalargs, OV);
     ALLOC_ON_STACK(int, totalargs, objvmap);
-    /*fprintf(stderr, "+++ forwardMethod standard case, allocated %d args\n", totalargs);*/
+    /*fprintf(stderr, "+++ forwardMethod standard case, allocated %d args, tcd->args %s\n",
+      totalargs, ObjStr(tcd->args));*/
 
     ov = &OV[1];
     if (tcd->needobjmap) {
@@ -22393,6 +22427,13 @@
   }
 
   /* 
+   * We do not stack a plain stack fraom NSF_CSC_TYPE_PLAIN here, as we do in
+   * NsfOConfigureMethod (but maybe we have to for full compatibility TODO:
+   * check and compar with configure stack setup ). Therefore we pass NULL as
+   * cscPtr to ParameterMethodForwardDispatch).
+   */
+
+  /* 
    * The uplevel handling is exactly the same as in NsfOConfigureMethod() and
    * is needed, when methods are called, which perform an upvar.
    */
@@ -22424,95 +22465,79 @@
     }
   }
   
-  /*
-   * The parameter is linked to a method via 
-   * "initcmd", "alias" and "forward".
-   */
-  if (found && paramPtr->flags & NSF_ARG_METHOD_INVOCATION) {
-    /* TODO: maybe we can allow this in the future */
-    /*fprintf(stderr, "method arg %s found, flags %.8x slot %p\n", 
-      nameString, paramPtr->flags, paramPtr->slotObj);*/
-    // oooo
-    //found = 0;
-    //fprintf(stderr, "slot is %p\n", paramPtr->slotObj);
-    //found = (paramPtr->slotObj != NULL);
-    // oooo;
-  }
-
   if (!found) {
     result = NsfPrintError(interp, "cannot lookup parameter value for %s", nameString);
-  } else {
+    goto cget_exit;
+  }
 
-    /* fprintf(stderr, "arg %s found, flags %.8x\n", nameString, paramPtr->flags);*/
-    /* 
-     * Check for slot invocation
-     */ 
-    if (paramPtr->slotObj) {
-      NsfObject *slotObject = GetSlotObject(interp, paramPtr->slotObj);
-      Tcl_Obj *ov[1];
+  /*fprintf(stderr, "arg %s found, flags %.8x\n", nameString, paramPtr->flags);*/
 
+  /* 
+   * Check for slot invocation
+   */ 
+  if (paramPtr->slotObj) {
+    NsfObject *slotObject = GetSlotObject(interp, paramPtr->slotObj);
+    Tcl_Obj *ov[1];
+
+    /*
+     * Get instance variable via slot.
+     */
+    if (uplevelVarFramePtr) {
+      Tcl_Interp_varFramePtr(interp) = uplevelVarFramePtr;
+    }
+    ov[0] = paramPtr->nameObj;
+    result = NsfCallMethodWithArgs(interp, (Nsf_Object *)slotObject, NsfGlobalObjs[NSF_GET],
+				   object->cmdName, 2, ov, NSF_CSC_IMMEDIATE);
+    
+    goto cget_exit;
+  } 
+    
+  /* 
+   * We do NOT have a slot
+   */
+  if (found && paramPtr->flags & NSF_ARG_METHOD_INVOCATION) {
+    if (paramPtr->flags & NSF_ARG_ALIAS) {
       /*
-       * Get instance variable via slot.
+       * It is a parameter associated with an aliased method. Invoke the
+       * method without an argument.
        */
+      Tcl_Obj *methodObj = paramPtr->method ? paramPtr->method : paramPtr->nameObj;
+      
       if (uplevelVarFramePtr) {
 	Tcl_Interp_varFramePtr(interp) = uplevelVarFramePtr;
       }
-      ov[0] = paramPtr->nameObj;
-      result = NsfCallMethodWithArgs(interp, (Nsf_Object *)slotObject, NsfGlobalObjs[NSF_GET],
-				       object->cmdName, 2, ov, NSF_CSC_IMMEDIATE);
       
-      if (result != TCL_OK) {
-	/* 
-	 * The error message was set either by GetSlotObject or by ...CallMethod... 
-	 */
-	Nsf_PopFrameObj(interp, framePtr);
-	goto cget_exit;
-      }
+      result = CallMethod(object, interp, methodObj, 2, 0, NSF_CSC_IMMEDIATE);
     } else {
-      /* 
-       * We do NOT have a slot
+      /*
+       * Must be NSF_ARG_FORWARD
        */
-      if (found && paramPtr->flags & NSF_ARG_METHOD_INVOCATION) {
-	/*
-	 * It is a parameter associated with a method. Invoke the method
-	 * without an argument.
-	 */
-	Tcl_Obj *methodObj = paramPtr->method ? paramPtr->method : paramPtr->nameObj;
+      assert(paramPtr->flags & NSF_ARG_FORWARD);
 
-	if (uplevelVarFramePtr) {
-	  Tcl_Interp_varFramePtr(interp) = uplevelVarFramePtr;
-	}
-
-	result = CallMethod(object, interp, methodObj, 2, 0, NSF_CSC_IMMEDIATE);
-	if (result != TCL_OK) {
-	  /* 
-	   * The error message was set either by GetSlotObject or by ...CallMethod... 
-	   */
-	  Nsf_PopFrameObj(interp, framePtr);
-	  goto cget_exit;
-	}
-      } else {
-	/*
-	 * Must be a parameter associated with a variable
-	 */
-	int flags = (object->nsPtr) ? TCL_LEAVE_ERR_MSG|TCL_NAMESPACE_ONLY : TCL_LEAVE_ERR_MSG;
-	Tcl_Obj *resutObj = Tcl_ObjGetVar2(interp, paramPtr->nameObj, NULL, flags);
+      /* since we have no cscPtr, we provide NULL */
+      result = ParameterMethodForwardDispatch(interp, object, 
+					      paramPtr, NULL, NULL /* cscPtr */);
+    }
+  } else {
+    /*
+     * Must be a parameter associated with a variable
+     */
+    int flags = (object->nsPtr) ? TCL_LEAVE_ERR_MSG|TCL_NAMESPACE_ONLY : TCL_LEAVE_ERR_MSG;
+    Tcl_Obj *resultObj = Tcl_ObjGetVar2(interp, paramPtr->nameObj, NULL, flags);
 	
-	if (resutObj) {
-	  /*
-	   * The value exists 
-	   */
-	  Tcl_SetObjResult(interp, resutObj);
-	}
-      }
+    if (resultObj) {
+      /*
+       * The value exists 
+       */
+      Tcl_SetObjResult(interp, resultObj);
     }
   }
 
-  Nsf_PopFrameObj(interp, framePtr);
-
  cget_exit:
 
+  Nsf_PopFrameObj(interp, framePtr);
   ParamDefsRefCountDecr(paramDefs);
+
   return result;
 }
 
Index: tests/cget.test
===================================================================
diff -u -N -r6ff35667cb941876d733d755f49a6530fa2fb929 -r77f50f6c6304355d638d5bf6f172d404940447de
--- tests/cget.test	(.../cget.test)	(revision 6ff35667cb941876d733d755f49a6530fa2fb929)
+++ tests/cget.test	(.../cget.test)	(revision 77f50f6c6304355d638d5bf6f172d404940447de)
@@ -126,6 +126,10 @@
 #
 Test case cget-parameter-methods {
   nx::Class create C {
+    :property {foo:alias,method=m0 {1 2 3}}
+    :property {{bar:forward,method=%self m1 a b c %method} bar1}
+    :public method m0 {args} {set :m0 $args; return $args}
+    :public method m1 {args} {set :m1 $args; return $args}
     :create c1
   }
   
@@ -146,14 +150,25 @@
   # object-level lookup
   #
   ? {c1 info lookup parameter list} \
-      "-volatile -noinit -mixin -class -filter __initcmd"
+      "-foo -bar -volatile -noinit -mixin -class -filter __initcmd"
 
+  #
+  # query all properties from base classes
+  #
   ? {c1 cget -volatile} 0
   ? {c1 cget -noinit} ""
   ? {c1 cget -mixin} ""
   ? {c1 cget -class} ::C
   ? {c1 cget -filter} ""
 
+  #
+  # query alias and forward
+  #
+  ? {c1 eval {set :m0}} "{1 2 3}"
+  ? {c1 eval {set :m1}} {a b c bar bar1}
+
+  ? {c1 cget -foo} ""
+  ? {c1 cget -bar} "a b c bar"
 }
 
 
Index: tests/disposition.test
===================================================================
diff -u -N -r102a1a9f4f678f98e7bcf7648ad1714147a29a47 -r77f50f6c6304355d638d5bf6f172d404940447de
--- tests/disposition.test	(.../disposition.test)	(revision 102a1a9f4f678f98e7bcf7648ad1714147a29a47)
+++ tests/disposition.test	(.../disposition.test)	(revision 77f50f6c6304355d638d5bf6f172d404940447de)
@@ -10,7 +10,7 @@
 nx::Test case basics {
 
   Class create C {
-    :class property [list inst "::__%&singleton"]
+    :class property {inst "::__%&singleton"}
     :method foo {x} {
       #puts stderr [current method]
       set :[current method] $x
@@ -28,9 +28,6 @@
       :protected method __objectparameter {} [list return $spec]
       ::nsf::parameter:invalidate::classcache [current]
     }
-    #:class method __objectparameter {} {
-    #  return ${:objectparams} 
-    #}
     :setObjectParams ""
 
     :public class method new args {