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.20 -r1.22.2.21
--- openacs-4/packages/xotcl-core/www/show-object.tcl	27 Mar 2017 10:37:42 -0000	1.22.2.20
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	31 Jul 2017 08:17:18 -0000	1.22.2.21
@@ -10,6 +10,7 @@
   {show_variables:range(0|1),notnull 0}
   {as_img:boolean,notnull 0}
   {with_children:boolean,notnull 0}
+  {with_instances:boolean,notnull 0}
   {with_instance_relations:boolean,notnull 0}
   {above:naturalnum,notnull 1}
   {below:naturalnum,notnull 2}
@@ -384,7 +385,7 @@
   }
 }
 
-if {$isclass} {
+if {$isclass && $with_instances} {
   set instances ""
   foreach o [lsort [DO $object info instances]] {
     append instances [::xo::api object_link $scope $o] ", "