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.6 -r1.7
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	19 Jan 2002 03:55:16 -0000	1.6
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	29 Jan 2002 02:49:19 -0000	1.7
@@ -274,11 +274,7 @@
 # Perform date comparison; same syntax as string compare
 
 ad_proc -public template::util::date::compare { date1 date2 } {
-
-  set str_1 [lrange $date1 0 5]
-  set str_2 [lrange $date2 0 5]
-
-  return [string compare $date1 $date2]
+  return [string compare [get_property sql_date $date1] [get_property sql_date $date2]]
 }
 
 # mutate properties of the Date object