Index: library/lib/test.tcl
===================================================================
diff -u -r496dfc7bd5088b8a90f1fe532cd22336c151b06d -r649c33f8bca87b389877c3e3c1b7eb8e1182c843
--- library/lib/test.tcl	(.../test.tcl)	(revision 496dfc7bd5088b8a90f1fe532cd22336c151b06d)
+++ library/lib/test.tcl	(.../test.tcl)	(revision 649c33f8bca87b389877c3e3c1b7eb8e1182c843)
@@ -61,10 +61,11 @@
     :public object method parameter {name value:optional} {
       if {[info exists value]} {
         #[[current] slot $name] default $value
-	:slot $name default $value
-        ::nsf::invalidateobjectparameter [::nsf::current object]
+	#:slot $name default $value
+	[self]::slot::$name default $value
+        ::nsf::invalidateobjectparameter [self]
       } else {
-	return [:slot $name default]
+	return [[self]::slot::$name $name default]
       }
     }