Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v
diff -u -N -r1.13.2.1 -r1.13.2.2
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	16 Feb 2003 20:36:37 -0000	1.13.2.1
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	20 Feb 2003 07:34:37 -0000	1.13.2.2
@@ -52,7 +52,7 @@
     return [ad_parameter -package_id [ad_acs_kernel_id] SessionLifetime security 604800]
 }
 
-proc sec_sweep_sessions {} {
+ad_proc -private sec_sweep_sessions {} {
     set expires [expr {[ns_time] - [sec_session_lifetime]}]
 
     db_dml sessions_sweep {}