Index: openacs-4/packages/acs-subsite/tcl/plpgsql-utility-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/plpgsql-utility-procs.tcl,v
diff -u -r1.11.2.1 -r1.11.2.2
--- openacs-4/packages/acs-subsite/tcl/plpgsql-utility-procs.tcl	16 May 2019 09:27:52 -0000	1.11.2.1
+++ openacs-4/packages/acs-subsite/tcl/plpgsql-utility-procs.tcl	17 Feb 2021 08:20:57 -0000	1.11.2.2
@@ -75,7 +75,7 @@
             } elseif { $arg_default eq "" || $arg_default eq "null"} {
                 lappend pieces "NULL"
             } elseif { [string tolower $arg_default] ni $reserved_default_values } {
-                lappend pieces "'[db_quote $arg_default]'"
+                lappend pieces [ns_dbquotevalue $arg_default]
             } else {
                 lappend pieces $arg_default
             }