Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	25 May 2007 11:49:13 -0000	1.23
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	25 May 2007 12:59:41 -0000	1.24
@@ -262,10 +262,10 @@
       return $sql
     }
     sql proc date_trunc {field date} {
-      return "to_char(trunc(to_date($date,'YYYY-MM-DD'),'$field'), 'YYYY-MM-DD HH24:MI:SS')"
+      return "to_char(trunc($date,'$field'), 'YYYY-MM-DD HH24:MI:SS')"
     }
     sql proc date_trunc_expression {field date date_string} {
-      return "trunc('$date,'$field') = trunc(to_date('$string','YYYY-MM-DD'),'$field')"
+      return "trunc($date,'$field') = trunc(to_date('$date_string','YYYY-MM-DD'),'$field')"
     }
   }
   sql proc since_interval_condition {var interval} {