Index: library/lib/test.tcl
===================================================================
diff -u -rc4ce5d5802925fc9a4c4cb8c80fc183e85ecc289 -r1da9ce4144ca62bd435da5c165fc40983611ecc4
--- library/lib/test.tcl	(.../test.tcl)	(revision c4ce5d5802925fc9a4c4cb8c80fc183e85ecc289)
+++ library/lib/test.tcl	(.../test.tcl)	(revision 1da9ce4144ca62bd435da5c165fc40983611ecc4)
@@ -63,7 +63,7 @@
         #[[current] slot $name] default $value
 	#:slot $name default $value
 	[self]::slot::$name default $value
-        ::nsf::invalidateobjectparameter [self]
+	[self]::slot::$name reconfigure
       } else {
 	return [[self]::slot::$name $name default]
       }