Index: library/clock.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/clock.tcl,v
retrieving revision 1.28
diff -u -r1.28 clock.tcl
--- library/clock.tcl	2 Dec 2005 22:13:41 -0000	1.28
+++ library/clock.tcl	20 Dec 2005 18:04:43 -0000
@@ -669,7 +669,7 @@
     # Set defaults
 
     set clockval [lindex $args 0]
-    set format {%a %b %d %H:%M:%S %z %Y}
+    set format {%a %b %d %I:%M:%S %p %Z %Y}
     set gmt 0
     set locale C
     set timezone {}
