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" Index: generic/predefined.xotcl =================================================================== diff -u -r217d826e64107056ae97176552cae3c776991b9e -r98250df246d466fa544dd4aa10e0f5028f5883e7 --- generic/predefined.xotcl (.../predefined.xotcl) (revision 217d826e64107056ae97176552cae3c776991b9e) +++ generic/predefined.xotcl (.../predefined.xotcl) (revision 98250df246d466fa544dd4aa10e0f5028f5883e7) @@ -112,7 +112,7 @@ .method info {obj} { set methods [list] - foreach name [::xotcl::dispatch [self] ::xotcl::cmd::ObjectInfo::methods [self] -defined] { + foreach name [::xotcl::cmd::ObjectInfo::methods [self] -defined] { if {$name eq "unknown"} continue lappend methods $name } @@ -292,7 +292,7 @@ if {[info exists default]} { # checking subclasses is not required during bootstrap # todo: do we really need $class twice? - foreach i [::xotcl::dispatch $class ::xotcl::cmd::ClassInfo::instances $class] { + foreach i [::xotcl::cmd::ClassInfo::instances $class] { if {![$i exists $att]} { if {[string match {*[*]*} $default]} { #set default [$i eval subst $default]