Index: library/lib/test.tcl
===================================================================
diff -u -r35c67391973a07983d0b0dfe70706e6a69fbdbfc -r89b5047e54e47a88a7de75d8523a07ffa5743407
--- library/lib/test.tcl	(.../test.tcl)	(revision 35c67391973a07983d0b0dfe70706e6a69fbdbfc)
+++ library/lib/test.tcl	(.../test.tcl)	(revision 89b5047e54e47a88a7de75d8523a07ffa5743407)
@@ -48,7 +48,7 @@
       set :case $name
       if {[info exists arg]} {
         foreach o [Object info instances -closure] {set pre_exist($o) 1}
-        namespace eval :: [list [self] eval $arg]
+        namespace eval :: [list [current] eval $arg]
         #:eval $arg
         foreach o [Object info instances -closure] {
           if {[info exists pre_exist($o)]} continue
@@ -60,11 +60,11 @@
 
     :public object method parameter {name value:optional} {
       if {[info exists value]} {
-        #[[self] slot $name] default $value
-        [self] slot $name default $value
+        #[[current] slot $name] default $value
+	:slot $name default $value
         :__invalidateobjectparameter
       } else {
-        return [[self] slot $name default]
+	return [:slot $name default]
       }
     }