Index: library/lib/xotcl1.xotcl =================================================================== diff -u -r6b0cef2dbca601425c74c3ee586d15cfeab47b91 -rca676cbf49393571d278e6307a5c4f6239dc10c9 --- library/lib/xotcl1.xotcl (.../xotcl1.xotcl) (revision 6b0cef2dbca601425c74c3ee586d15cfeab47b91) +++ library/lib/xotcl1.xotcl (.../xotcl1.xotcl) (revision ca676cbf49393571d278e6307a5c4f6239dc10c9) @@ -305,7 +305,7 @@ } foreach cmd [::info command ::xotcl::cmd::ClassInfo::*] { set cmdName [namespace tail $cmd] - if {$cmdName in [list "method" "methods" "filter" "mixin" "mixinguard"]} continue + if {$cmdName in [list "method" "methods" "filter" "filterguard" "mixin" "mixinguard"]} continue ::xotcl::alias ::xotcl::classInfo $cmdName $cmd } ::xotcl::alias ::xotcl::objectInfo is ::xotcl::is @@ -315,6 +315,7 @@ ::xotcl::alias ::xotcl::classInfo instmixin ::xotcl::cmd::ClassInfo::mixin ::xotcl::alias ::xotcl::classInfo instmixinguard ::xotcl::cmd::ClassInfo::mixinguard ::xotcl::alias ::xotcl::classInfo instfilter ::xotcl::cmd::ClassInfo::filter + ::xotcl::alias ::xotcl::classInfo instfilterguard ::xotcl::cmd::ClassInfo::filterguard # define info methods from objectInfo on classInfo as well ::xotcl::alias classInfo body objectInfo::body