Index: openacs-4/packages/ecommerce/tcl/ecommerce-widgets-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/tcl/ecommerce-widgets-procs.tcl,v
diff -u -r1.26 -r1.27
--- openacs-4/packages/ecommerce/tcl/ecommerce-widgets-procs.tcl	9 May 2018 15:33:31 -0000	1.26
+++ openacs-4/packages/ecommerce/tcl/ecommerce-widgets-procs.tcl	25 Jul 2018 02:09:22 -0000	1.27
@@ -956,9 +956,9 @@
     # needs to be able to handle a null value
     if {![empty_string_p $dt(year)] || ![empty_string_p $dt(day)] || ![empty_string_p $dt(month)]} {
 	if {[info exists dt(ampm)]} {
-	    return "to_date('[DoubleApos "$dt(year)-[format %02u $dt(month)]-[format %02u $dt(day)] $dt(hour):$dt(minute):$dt(second) $dt(ampm)"]', 'YYYY-MM-DD HH12:MI:SS PM')"
+	    return "to_date([ns_dbquotevalue "$dt(year)-[format %02u $dt(month)]-[format %02u $dt(day)] $dt(hour):$dt(minute):$dt(second) $dt(ampm)"], 'YYYY-MM-DD HH12:MI:SS PM')"
 	} else {
-	    return "to_date('[DoubleApos "$dt(year)-[format %02u $dt(month)]-[format %02u $dt(day)]"]', 'YYYY-MM-DD')"
+	    return "to_date([ns_dbquotevalue "$dt(year)-[format %02u $dt(month)]-[format %02u $dt(day)]"], 'YYYY-MM-DD')"
 	}
     } else {
         return "null"