Index: openacs-4/packages/xotcl-core/www/show-object.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/show-object.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/xotcl-core/www/show-object.tcl 8 Aug 2007 09:57:17 -0000 1.7 +++ openacs-4/packages/xotcl-core/www/show-object.tcl 8 Aug 2007 10:11:12 -0000 1.8 @@ -142,7 +142,7 @@ } } if {[llength $pretty]>0} { - append result "
Methods to be applied on the class:
[join $pretty {, }]
" + append result "
Methods to be applied on the class (in addition to the methods provided by the meta-class):
[join $pretty {, }]
" } if {$result ne ""} {