Index: generic/predefined.h =================================================================== diff -u -r217d826e64107056ae97176552cae3c776991b9e -r98250df246d466fa544dd4aa10e0f5028f5883e7 --- generic/predefined.h (.../predefined.h) (revision 217d826e64107056ae97176552cae3c776991b9e) +++ generic/predefined.h (.../predefined.h) (revision 98250df246d466fa544dd4aa10e0f5028f5883e7) @@ -46,7 +46,7 @@ ".alias is -cmd ::xotcl::is\n" ".method info {obj} {\n" "set methods [list]\n" -"foreach name [::xotcl::dispatch [self] ::xotcl::cmd::ObjectInfo::methods [self] -defined] {\n" +"foreach name [::xotcl::cmd::ObjectInfo::methods [self] -defined] {\n" "if {$name eq \"unknown\"} continue\n" "lappend methods $name}\n" "return \"valid options are: [join [lsort $methods] {, }]\"}\n" @@ -135,7 +135,7 @@ "foreach att $definitions {\n" "if {[llength $att]>1} {foreach {att default} $att break}\n" "if {[info exists default]} {\n" -"foreach i [::xotcl::dispatch $class ::xotcl::cmd::ClassInfo::instances $class] {\n" +"foreach i [::xotcl::cmd::ClassInfo::instances $class] {\n" "if {![$i exists $att]} {\n" "if {[string match {*[*]*} $default]} {\n" "set default [::xotcl::dispatch $i -objscope ::eval subst $default]}\n"