Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -N -r1.148.2.44 -r1.148.2.45
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	13 Jan 2022 12:36:01 -0000	1.148.2.44
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	22 Jan 2022 11:33:53 -0000	1.148.2.45
@@ -791,7 +791,7 @@
   #
   ##########################################################################
 
-  ad_proc ::xo::db::select_driver {{driver ""}} {
+  ad_proc -private ::xo::db::select_driver {{driver ""}} {
     Select the driver based on the specified argument (either DB or
     DBI) or based on the defaults for the configuration.  This
     function can be used to switch the driver as well dynamically.