Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v
diff -u -N -r1.153.2.31 -r1.153.2.32
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	17 Feb 2021 20:51:42 -0000	1.153.2.31
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	18 Feb 2021 14:50:20 -0000	1.153.2.32
@@ -1890,7 +1890,7 @@
     }
 }
 
-ad_proc ad_port {} {
+ad_proc -private ad_port {} {
     Returns the port as it was typed in the browser,
     provided forcehostp is set to 0.
 } {