Index: openacs-4/packages/xowiki/tcl/weblog-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/weblog-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/xowiki/tcl/weblog-procs.tcl	29 Jul 2007 11:49:55 -0000	1.18
+++ openacs-4/packages/xowiki/tcl/weblog-procs.tcl	29 Jul 2007 20:17:01 -0000	1.19
@@ -129,8 +129,8 @@
       $c instvar revision_id publish_date title name item_id creator creation_user \
           description body instance_attributes
 
-      regexp {^([^.]+)[.][0-9]+(.*)$} $publish_date _ publish_date tz
-      set pretty_date [util::age_pretty -timestamp_ansi $publish_date \
+      set time [::xo::db::tcl_date $publish_date tz]
+      set pretty_date [util::age_pretty -timestamp_ansi $time \
                            -sysdate_ansi [clock_to_ansi [clock seconds]] \
                            -mode_3_fmt "%d %b %Y, at %X"]