Index: openacs-4/packages/acs-subsite/tcl/plsql-utility-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/plsql-utility-procs.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/tcl/plsql-utility-procs.tcl	9 May 2018 15:33:28 -0000	1.7
+++ openacs-4/packages/acs-subsite/tcl/plsql-utility-procs.tcl	25 Jul 2018 01:20:52 -0000	1.8
@@ -204,7 +204,7 @@
 	    if { ![info exists $var] } {
 		error "Cannot find value for bind variable \"$var\"\n\n"
 	    }
-	    regsub -- "\:$var" $sql_query '[DoubleApos [set $var]]' sql_query
+	    regsub -- "\:$var" $sql_query '[::ns_dbquotevalue [set $var]]' sql_query
 	}
 	return $sql_query
     }