Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl,v
diff -u -r1.39 -r1.40
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	2 Oct 2003 19:21:37 -0000	1.39
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	14 Oct 2003 13:55:10 -0000	1.40
@@ -366,7 +366,7 @@
     }
 }
 
-ad_proc db_boolean { bool } {
+ad_proc -public db_boolean { bool } {
     Converts a Tcl boolean (1/0) into a SQL boolean (t/f)
 } {
     if { $bool } {