Index: generic/predefined.h
===================================================================
diff -u -r3ecb613fe4ef3fd510e73792cdf0764a1d1489ab -rcfee325944ac90fe94485cba109a7e99465073b5
--- generic/predefined.h	(.../predefined.h)	(revision 3ecb613fe4ef3fd510e73792cdf0764a1d1489ab)
+++ generic/predefined.h	(.../predefined.h)	(revision cfee325944ac90fe94485cba109a7e99465073b5)
@@ -259,6 +259,7 @@
 "if {$type ne \"\"} {\n"
 "set objopts [linsert $objopts 0 $type]\n"
 "set methodopts [linsert $methodopts 0 $type]}\n"
+"lappend objopts slot=[self]\n"
 "if {[llength $objopts] > 0} {\n"
 "append objparamdefinition :[join $objopts ,]}\n"
 "if {[llength $methodopts] > 0} {\n"
@@ -409,9 +410,9 @@
 "array set \"\" [:toParameterSyntax \"value\"]\n"
 "if {$(mparam) ne \"\"} {\n"
 "if {[info exists :multivalued] && ${:multivalued}} {\n"
-":method assign [list obj var value:$(mparam),multivalued] {::xotcl::setinstvar $obj $var $value}\n"
-":method add [list obj prop value:$(mparam) {pos 0}] {next}} else {\n"
-":method assign [list obj var value:$(mparam)] {::xotcl::setinstvar $obj $var $value}}}\n"
+":method assign [list obj var value:$(mparam),multivalued,slot=[self]] {::xotcl::setinstvar $obj $var $value}\n"
+":method add [list obj prop value:$(mparam),slot=[self] {pos 0}] {next}} else {\n"
+":method assign [list obj var value:$(mparam),slot=[self]] {::xotcl::setinstvar $obj $var $value}}}\n"
 "if {[:exists valuechangedcmd]} {\n"
 "append __initcmd \":trace add variable [list ${:name}] write \\\n"
 "\\[list [::xotcl::self] __value_changed_cmd \\[::xotcl::self\\] [list [set :valuechangedcmd]]\\]\"}\n"