Index: tests/parameters.test
===================================================================
diff -u -r1f666096846419774da5ef6c42150ae1388ba3cd -r5c37eb1cd2b674337c60deeef1ecef4b663fa5ce
--- tests/parameters.test	(.../parameters.test)	(revision 1f666096846419774da5ef6c42150ae1388ba3cd)
+++ tests/parameters.test	(.../parameters.test)	(revision 5c37eb1cd2b674337c60deeef1ecef4b663fa5ce)
@@ -273,11 +273,11 @@
   }
   C create c1
  
-  ? {C eval :objectparameter} \
+  ? {C eval :__objectparameter} \
       "-a -b:boolean {-c 1} -volatile:alias,noarg -properties:alias,method=::nx::internal::addProperties -noinit:alias,method=::nsf::methods::object::noinit,noarg -mixin:mixinreg,alias,0..n -class:class,alias,method=::nsf::methods::object::class -filter:filterreg,alias,0..n __initcmd:initcmd,optional,noleadingdash"
 
-  ? {c1 eval :objectparameter} \
-      "::c1: unable to dispatch method 'objectparameter'"
+  ? {c1 eval :__objectparameter} \
+      "::c1: unable to dispatch method '__objectparameter'"
 }
 
 #######################################################
@@ -304,7 +304,7 @@
   ? {d1 info lookup slots -source application} \
       "::D::slot::d ::C::slot::a ::C::slot::b ::C::slot::c"
   
-  ? {D eval :objectparameter} \
+  ? {D eval :__objectparameter} \
       "-d:required -a -b:boolean {-c 1} -volatile:alias,noarg -properties:alias,method=::nx::internal::addProperties -noinit:alias,method=::nsf::methods::object::noinit,noarg -mixin:mixinreg,alias,0..n -class:class,alias,method=::nsf::methods::object::class -filter:filterreg,alias,0..n __initcmd:initcmd,optional,noleadingdash"
 }
 
@@ -333,29 +333,29 @@
   }
   D mixin M
 
-  ? {D eval :objectparameter} \
+  ? {D eval :__objectparameter} \
       "-b -m1 -m2 -d:required -a {-c 1} -volatile:alias,noarg -properties:alias,method=::nx::internal::addProperties -noinit:alias,method=::nsf::methods::object::noinit,noarg -mixin:mixinreg,alias,0..n -class:class,alias,method=::nsf::methods::object::class -filter:filterreg,alias,0..n __initcmd:initcmd,optional,noleadingdash" \
     "mixin added"
 
   M mixin M2
 
-  ? {D eval :objectparameter} \
+  ? {D eval :__objectparameter} \
       "-b2 -b -m1 -m2 -d:required -a {-c 1} -volatile:alias,noarg -properties:alias,method=::nx::internal::addProperties -noinit:alias,method=::nsf::methods::object::noinit,noarg -mixin:mixinreg,alias,0..n -class:class,alias,method=::nsf::methods::object::class -filter:filterreg,alias,0..n __initcmd:initcmd,optional,noleadingdash" \
     "transitive mixin added"
   D mixin ""
   #we should have again the old interface
 
-  ? {D eval :objectparameter} \
+  ? {D eval :__objectparameter} \
       "-d:required -a -b:boolean {-c 1} -volatile:alias,noarg -properties:alias,method=::nx::internal::addProperties -noinit:alias,method=::nsf::methods::object::noinit,noarg -mixin:mixinreg,alias,0..n -class:class,alias,method=::nsf::methods::object::class -filter:filterreg,alias,0..n __initcmd:initcmd,optional,noleadingdash"
 
   C mixin M
-  ? {D eval :objectparameter} \
+  ? {D eval :__objectparameter} \
       "-b2 -b -m1 -m2 -d:required -a {-c 1} -volatile:alias,noarg -properties:alias,method=::nx::internal::addProperties -noinit:alias,method=::nsf::methods::object::noinit,noarg -mixin:mixinreg,alias,0..n -class:class,alias,method=::nsf::methods::object::class -filter:filterreg,alias,0..n __initcmd:initcmd,optional,noleadingdash" \
     "mixin added"
   C mixin ""
   #we should have again the old interface
   
-  ? {D eval :objectparameter} \
+  ? {D eval :__objectparameter} \
       "-d:required -a -b:boolean {-c 1} -volatile:alias,noarg -properties:alias,method=::nx::internal::addProperties -noinit:alias,method=::nsf::methods::object::noinit,noarg -mixin:mixinreg,alias,0..n -class:class,alias,method=::nsf::methods::object::class -filter:filterreg,alias,0..n __initcmd:initcmd,optional,noleadingdash" 
 }
 
@@ -531,7 +531,7 @@
   ? {Bar property ss:switch} "::nsf::classes::Bar::ss"
 
   Bar create bar1
-  #puts stderr [bar1 objectparameter]
+  #puts stderr [bar1 __objectparameter]
   
   ? {subst {[bar1 s]-[bar1 literal]-[bar1 c]-[bar1 d]}} \
       {::bar1-[current]-::Bar-literal $d} \
@@ -1845,7 +1845,7 @@
 
   ? {C info slot objects -closure} "::C::slot::a1 ::nx::Object::slot::volatile ::nx::Object::slot::properties ::nx::Object::slot::noinit ::nx::Object::slot::mixin ::nx::Object::slot::__initcmd ::nx::Object::slot::class ::nx::Object::slot::filter"
 
-  ? {C eval :objectparameter} "-a1 -volatile:alias,noarg -properties:alias,method=::nx::internal::addProperties -noinit:alias,method=::nsf::methods::object::noinit,noarg -mixin:mixinreg,alias,0..n -class:class,alias,method=::nsf::methods::object::class -filter:filterreg,alias,0..n __initcmd:initcmd,optional,noleadingdash"
+  ? {C eval :__objectparameter} "-a1 -volatile:alias,noarg -properties:alias,method=::nx::internal::addProperties -noinit:alias,method=::nsf::methods::object::noinit,noarg -mixin:mixinreg,alias,0..n -class:class,alias,method=::nsf::methods::object::class -filter:filterreg,alias,0..n __initcmd:initcmd,optional,noleadingdash"
 
   #
   # invalidate object parameter and expect that the per-class mixin
@@ -1859,7 +1859,7 @@
 
   ? {C info slot objects -closure} "::C::slot::a1 ::nx::Object::slot::volatile ::nx::Object::slot::properties ::nx::Object::slot::noinit ::nx::Object::slot::mixin ::nx::Object::slot::__initcmd ::nx::Object::slot::class ::nx::Object::slot::filter"
 
-  ? {C eval :objectparameter} "-a1 -volatile:alias,noarg -properties:alias,method=::nx::internal::addProperties -noinit:alias,method=::nsf::methods::object::noinit,noarg -mixin:mixinreg,alias,0..n -class:class,alias,method=::nsf::methods::object::class -filter:filterreg,alias,0..n __initcmd:initcmd,optional,noleadingdash"
+  ? {C eval :__objectparameter} "-a1 -volatile:alias,noarg -properties:alias,method=::nx::internal::addProperties -noinit:alias,method=::nsf::methods::object::noinit,noarg -mixin:mixinreg,alias,0..n -class:class,alias,method=::nsf::methods::object::class -filter:filterreg,alias,0..n __initcmd:initcmd,optional,noleadingdash"
 
   # should not require b1
   ? {C create c2} ::c2
@@ -2443,7 +2443,7 @@
       set :objectparams $spec
       ::nsf::invalidateobjectparameter [self]
     }
-    :class method objectparameter {} {
+    :class method __objectparameter {} {
       return ${:objectparams}
     }
     :setObjectParams ""