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.34 -r1.93.2.35
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	5 Jan 2021 09:36:59 -0000	1.93.2.34
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	14 Feb 2021 21:13:25 -0000	1.93.2.35
@@ -513,7 +513,7 @@
   #
   # Per-request cleanup handler.
   #
-  proc at_cleanup {args} {
+  ad_proc -private at_cleanup {args} {
     ::xo::dc profile off
     ::xo::broadcast receive