Index: openacs-4/packages/acs-subsite/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/package-procs.tcl,v
diff -u -r1.38 -r1.39
--- openacs-4/packages/acs-subsite/tcl/package-procs.tcl	14 Jun 2018 15:05:17 -0000	1.38
+++ openacs-4/packages/acs-subsite/tcl/package-procs.tcl	25 Jul 2018 01:20:52 -0000	1.39
@@ -182,7 +182,7 @@
     # We handle defaults grossly here, but I don't currently have
     # a better idea how to do this
     if { $attr_default ne "" } {
-        return "'[DoubleApos $attr_default]'"
+        return "'[::ns_dbquotevalue $attr_default]'"
     }
 
     # Special cases for acs_object and acs_rels
@@ -191,7 +191,7 @@
 
     if {$table eq "ACS_OBJECTS"} {
         switch -- $column {
-            "OBJECT_TYPE"   { return "'[DoubleApos $object_type]'" }
+            "OBJECT_TYPE"   { return "'[::ns_dbquotevalue $object_type]'" }
             "CREATION_DATE" { return [db_map creation_date] }
             "CREATION_IP"   { return "NULL" }
             "CREATION_USER" { return "NULL" }
@@ -200,7 +200,7 @@
         }
     } elseif {$table eq "ACS_RELS"} {
         switch -- $column {
-            "REL_TYPE"      { return "'[DoubleApos $object_type]'" }
+            "REL_TYPE"      { return "'[::ns_dbquotevalue $object_type]'" }
         }
     }
 
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 -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
     }