Index: library/clock.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/clock.tcl,v
retrieving revision 1.30
diff -u -r1.30 clock.tcl
--- library/clock.tcl	19 Apr 2006 16:43:03 -0000	1.30
+++ library/clock.tcl	13 Jun 2006 12:53:54 -0000
@@ -1061,7 +1061,7 @@
 					/ 7 }]
 			}
 			append formatString %02d
-			append substituents { $Wweeknumber}
+			append substituents { $WweekNumber}
 		    }
 		    y {			# The two-digit year of the century
 			append formatString %02d
