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.22.2.9 -r1.22.2.10
--- openacs-4/packages/xotcl-core/www/show-object.tcl	5 Jan 2016 20:11:24 -0000	1.22.2.9
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	6 Jan 2016 11:57:21 -0000	1.22.2.10
@@ -325,6 +325,7 @@
   if {[llength $methods] > 0} {
     append output "<h3>Methods (to be applied on the object)</h3>\n" <ul> \n
     foreach m $methods {
+      set type [DO ::xo::getObjectProperty $object methodtype $m]
       set out [local_api_documentation -proc_type $type $show_methods $scope $object proc $m]
       if {$out ne ""} {
         append output [api_src_doc $out $show_source $scope $object proc $m]