Index: library/lib/test.tcl
===================================================================
diff -u -rba82e95493711eb36cadc579cfa27cf934120b58 -r496dfc7bd5088b8a90f1fe532cd22336c151b06d
--- library/lib/test.tcl	(.../test.tcl)	(revision ba82e95493711eb36cadc579cfa27cf934120b58)
+++ library/lib/test.tcl	(.../test.tcl)	(revision 496dfc7bd5088b8a90f1fe532cd22336c151b06d)
@@ -62,7 +62,7 @@
       if {[info exists value]} {
         #[[current] slot $name] default $value
 	:slot $name default $value
-        :__invalidateobjectparameter
+        ::nsf::invalidateobjectparameter [::nsf::current object]
       } else {
 	return [:slot $name default]
       }