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.67 -r1.68
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	14 May 2007 20:30:26 -0000	1.67
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	16 Jul 2007 00:47:25 -0000	1.68
@@ -738,7 +738,9 @@
         ns_db dml $db "create function $function_name () returns varchar as '
                       [DoubleApos $proc_sql]
                       ' language 'plpgsql'"
-
+ns_log notice "!!! create function $function_name () returns varchar as '
+                      [DoubleApos $proc_sql]
+                      ' language 'plpgsql'"
         set ret_val [ns_db 0or1row $db "select $function_name ()"]
         
         # drop the anonymous function (OpenACS - Dan)