Index: openacs-4/packages/contacts/lib/history.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/history.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/contacts/lib/history.tcl	16 Jul 2005 20:14:43 -0000	1.3
+++ openacs-4/packages/contacts/lib/history.tcl	27 Jul 2005 13:36:04 -0000	1.4
@@ -137,7 +137,7 @@
 template::multirow foreach hist {
     set timestamp     [lindex [split $timestamp "."] 0]
     set date          [lc_time_fmt $timestamp "%q"]
-    set time          [string trimleft [lc_time_fmt $timestamp "%r"] "0"]
+    set time          [string trimleft [lc_time_fmt $timestamp "%X"] "0"]
 #    set object_id     
 #    set creation_user 
     set user_link     [contact::name -party_id $creation_user]