Index: tests/parameters.test
===================================================================
diff -u -rc52c4d07b0c6921e5a94baa31e905ae21241eb25 -rdd169437c7a701da0063a40978614e6148d71221
--- tests/parameters.test	(.../parameters.test)	(revision c52c4d07b0c6921e5a94baa31e905ae21241eb25)
+++ tests/parameters.test	(.../parameters.test)	(revision dd169437c7a701da0063a40978614e6148d71221)
@@ -1070,7 +1070,7 @@
 
   }
 
-  ? {ParamTest info method definition os} "::ParamTest public forward os ::ParamTest::slot::os %1 %self os"
+  ? {ParamTest info method definition os} "::ParamTest public forward os -prefix value= ::ParamTest::slot::os %1 %self os"
 
   ? {p os set o} \
       "o" \
@@ -1280,7 +1280,7 @@
   
   ? {C create c1 -a 1 -b 2} ::c1
   ? {c1 info vars} "a b c"
-  ? {c1 a assign 100} 100
+  ? {c1 a set 100} 100
   ? {c1 b 101} {::c1: unable to dispatch method 'b'}
   ? {c1 c 102} {::c1: unable to dispatch method 'c'}
 }
@@ -2677,7 +2677,7 @@
   set ::slotcalls 0
   nx::Class create Foo {
     :property -accessor public bar {
-      :public object method set { object property value } {
+      :public object method value=set { object property value } {
 	incr ::slotcalls 1
 	nsf::var::set $object $property $value
       }
@@ -2701,7 +2701,7 @@
   set ::slotcalls 0
   nx::Class create Foo {
     :property -accessor public {baz 1} {
-      :public object method set { object property value } {
+      :public object method value=set { object property value } {
 	incr ::slotcalls 1
 	nsf::var::set $object $property $value
       }
@@ -2733,7 +2733,7 @@
 
   ? {nx::Class create Foo {
     :property -accessor none bar {
-      :public object method set { object property value } {
+      :public object method value=set { object property value } {
 	incr ::slotcalls 1
 	nsf::var::set $object $property $value
       }
@@ -2747,7 +2747,7 @@
   # test cases for default
   nx::Class create Foo {
     :property -accessor none {baz 1} {
-      :public object method set { object property value } {
+      :public object method value=set { object property value } {
 	incr ::slotcalls 1
 	nsf::var::set $object $property $value
       }
@@ -2795,7 +2795,7 @@
 
   nx::Class create Test2 {
     :property -accessor public list {
-      :public object method set { obj var val } {
+      :public object method value=set { obj var val } {
 	nsf::var::set $obj $var [list $obj $var $val]
       }
       :object method unknown { val obj var args } {
@@ -2824,7 +2824,7 @@
   ? {o eval {info exists :a}} 0
   ? {catch {
     o object variable -accessor public -initblock {
-      :public object method set args {
+      :public object method value=set args {
 	incr :assignCalled
 	next
       }