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 -N -r1.39 -r1.40
--- openacs-4/packages/acs-subsite/tcl/package-procs.tcl	25 Jul 2018 01:20:52 -0000	1.39
+++ openacs-4/packages/acs-subsite/tcl/package-procs.tcl	25 Jul 2018 01:28:26 -0000	1.40
@@ -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 "'[::ns_dbquotevalue $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 "'[::ns_dbquotevalue $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 "'[::ns_dbquotevalue $object_type]'" }
+            "REL_TYPE"      { return [::ns_dbquotevalue $object_type] }
         }
     }