Index: generic/nsf.c
===================================================================
diff -u -N -rbc16933ea485c187cd8814bfd5b8418a97c0f3b5 -r8b19916c76c0df6859339c8de9ba53dcdaa29104
--- generic/nsf.c	(.../nsf.c)	(revision bc16933ea485c187cd8814bfd5b8418a97c0f3b5)
+++ generic/nsf.c	(.../nsf.c)	(revision 8b19916c76c0df6859339c8de9ba53dcdaa29104)
@@ -26556,7 +26556,7 @@
                                  tcd, ForwardCmdDeleteProc, 0);
     }
     if (likely(result == TCL_OK)) {
-      Tcl_SetObjResult(interp, MethodHandleObj(object, withPer_object, methodName));
+      Tcl_SetObjResult(interp, MethodHandleObj(object, (cl == NULL), methodName));
     }
   }
 
Index: tests/submethods.test
===================================================================
diff -u -N -radedd712d56344175e1036b7b908e62054cb8c76 -r8b19916c76c0df6859339c8de9ba53dcdaa29104
--- tests/submethods.test	(.../submethods.test)	(revision adedd712d56344175e1036b7b908e62054cb8c76)
+++ tests/submethods.test	(.../submethods.test)	(revision 8b19916c76c0df6859339c8de9ba53dcdaa29104)
@@ -940,7 +940,49 @@
   unset -nocomplain ::handle
   unset -nocomplain ::body
 }
+
+::nx::configure defaultMethodCallProtection true
+
+nx::test case ensemble-forwards {
+  set C [nx::Class new {
+    set handle [:forward "foo 1" string cat %method]
+    ? [list info commands $handle] $handle
+    set handle [:public forward "foo 2" string cat %method]
+    ? [list info commands $handle] $handle
+    set handle [:protected forward "foo 3" string cat %method]
+    ? [list info commands $handle] $handle
+    set handle [:private forward "foo 4" string cat %method]
+    ? [list info commands $handle] $handle
+    set handle [:object forward "foo 5" string cat %method]
+    ? [list info commands $handle] $handle
+    set handle [:public object forward "foo 6" string cat %method]
+    ? [list info commands $handle] $handle
+    set handle [:protected object forward "foo 7" string cat %method]
+    ? [list info commands $handle] $handle
+    set handle [:private object forward "foo 8" string cat %method]
+    ? [list info commands $handle] $handle
+  }]
   
+  ? [list $C foo 6] "6"
+  ? [list $C foo 5] "unable to dispatch sub-method \"5\" of $C foo; valid are: foo 6"
+  ? [list $C eval {:foo 5}] "5"
+  ? [list $C foo 7] "unable to dispatch sub-method \"7\" of $C foo; valid are: foo 6"
+  ? [list $C eval {:foo 7}] "7"
+  ? [list $C foo 8] "unable to dispatch sub-method \"8\" of $C foo; valid are: foo 6"
+  ? [list $C eval {:foo 8}] "8"; # ! should not be possible !
+  
+  set c [$C new]
+  
+  ? [list $c foo 2] "2"
+  ? [list $c foo 1] "unable to dispatch sub-method \"1\" of $c foo; valid are: foo 2"
+  ? [list $c eval {:foo 1}] "1"
+  ? [list $c foo 3] "unable to dispatch sub-method \"3\" of $c foo; valid are: foo 2"
+  ? [list $c eval {:foo 3}] "3"
+  ? [list $c foo 4] "unable to dispatch sub-method \"4\" of $c foo; valid are: foo 2"
+  ? [list $c eval {:foo 4}] "4"; # ! should not be possible !
+
+}
+
 #
 # Local variables:
 #    mode: tcl