Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	12 Apr 2001 16:58:18 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	28 Apr 2001 19:58:39 -0000	1.3
@@ -411,6 +411,7 @@
 }
 
 proc_doc util_AnsiDatetoPrettyDate {sql_date} "Converts 1998-09-05 to September 5, 1998" {
+    set sql_date [string range $sql_date 0 9]
     if ![regexp {(.*)-(.*)-(.*)$} $sql_date match year month day] {
 	return ""
     } else {