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 -N -r1.20 -r1.21
--- openacs-4/packages/xotcl-core/www/show-object.tcl	16 Jun 2015 20:35:32 -0000	1.20
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	24 Jun 2015 10:31:04 -0000	1.21
@@ -5,9 +5,9 @@
   @cvs-id $Id$
 } -query {
   {object:optional ::xotcl::Object}
-  {show_methods:optional 1}
-  {show_source:optional 0}
-  {show_variables:optional 0}
+  {show_methods:naturalnum,optional 1}
+  {show_source:naturalnum,optional 0}
+  {show_variables:naturalnum,optional 0}
   {as_img:boolean 0}
   {with_children:boolean 0}
   {with_instance_relations:boolean 0}