Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -r1.93.2.56 -r1.93.2.57
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	27 Feb 2023 18:33:07 -0000	1.93.2.56
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	28 Mar 2023 13:34:16 -0000	1.93.2.57
@@ -274,13 +274,15 @@
   # Allow to show an arbitrary object via API-browser.  Per-default,
   # e.g. site-wide can use e.g. /xowiki/index?m=show-object
   #
-  set form [rp_getform]
-  ns_set update $form object [self]
-  ns_set update $form show_source    [::xo::cc query_parameter show_source:integer 1]
-  ns_set update $form show_methods   [::xo::cc query_parameter show_methods:integer 2]
-  ns_set update $form show_variables [::xo::cc query_parameter show_variables:integer 1]
-  ns_set update $form as_img 1
-  rp_internal_redirect /packages/xotcl-core/www/show-object
+  set form [ns_getform]
+  if {$form ne ""} {
+    ns_set update $form object [self]
+    ns_set update $form show_source    [::xo::cc query_parameter show_source:integer 1]
+    ns_set update $form show_methods   [::xo::cc query_parameter show_methods:integer 2]
+    ns_set update $form show_variables [::xo::cc query_parameter show_variables:integer 1]
+    ns_set update $form as_img 1
+    rp_internal_redirect /packages/xotcl-core/www/show-object
+  }
   ad_script_abort
 }