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.6 -r1.22.2.7
--- openacs-4/packages/xotcl-core/www/show-object.tcl	31 Dec 2015 13:15:39 -0000	1.22.2.6
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	1 Jan 2016 11:59:56 -0000	1.22.2.7
@@ -316,9 +316,11 @@
     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]
+      if {$type ne "object"} {
+        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]
+        }
       }
     }
   }