Index: openacs-4/packages/acs-templating/tcl/date-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/date-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	29 Jan 2002 02:49:19 -0000	1.7
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	5 Feb 2002 02:10:55 -0000	1.8
@@ -274,7 +274,7 @@
 # Perform date comparison; same syntax as string compare
 
 ad_proc -public template::util::date::compare { date1 date2 } {
-  return [string compare [get_property sql_date $date1] [get_property sql_date $date2]]
+  return [string compare [get_property clock $date1] [get_property clock $date2]]
 }
 
 # mutate properties of the Date object