Index: generic/predefined.h =================================================================== diff -u -r04747ba752ca2b7a4f30586348e39ab04f190da9 -r88ef0a6d60c84d75b1436e8cc0e8f8f5d176328e --- generic/predefined.h (.../predefined.h) (revision 04747ba752ca2b7a4f30586348e39ab04f190da9) +++ generic/predefined.h (.../predefined.h) (revision 88ef0a6d60c84d75b1436e8cc0e8f8f5d176328e) @@ -5,7 +5,9 @@ "namespace path ::xotcl\n" "::xotcl::createobjectsystem ::xotcl2::Object ::xotcl2::Class\n" "foreach cmd [info command ::xotcl::cmd::Object::*] {\n" -"::xotcl::alias Object [namespace tail $cmd] $cmd}\n" +"set cmdName [namespace tail $cmd]\n" +"if {$cmdName in [list \"instvar\"]} continue\n" +"::xotcl::alias Object $cmdName $cmd}\n" "foreach cmd [info command ::xotcl::cmd::Class::*] {\n" "::xotcl::alias Class [namespace tail $cmd] $cmd}\n" "foreach cmd [list __next cleanup noinit residualargs] {\n" Index: generic/predefined.xotcl =================================================================== diff -u -r04747ba752ca2b7a4f30586348e39ab04f190da9 -r88ef0a6d60c84d75b1436e8cc0e8f8f5d176328e --- generic/predefined.xotcl (.../predefined.xotcl) (revision 04747ba752ca2b7a4f30586348e39ab04f190da9) +++ generic/predefined.xotcl (.../predefined.xotcl) (revision 88ef0a6d60c84d75b1436e8cc0e8f8f5d176328e) @@ -16,7 +16,9 @@ # provide the standard command set for ::xotcl2::Object foreach cmd [info command ::xotcl::cmd::Object::*] { - ::xotcl::alias Object [namespace tail $cmd] $cmd + set cmdName [namespace tail $cmd] + if {$cmdName in [list "instvar"]} continue + ::xotcl::alias Object $cmdName $cmd } # provide some Tcl-commands as methods for ::xotcl2::Object