From 1009d232b4c47ae29d281c1454c7896a1b40e5a4 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Tue, 9 Feb 2010 22:27:46 +0000
Subject: Corrected case of trap pattern

---
 library/clock.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/library/clock.tcl b/library/clock.tcl
index 9f9bcae..2cf4ada 100644
--- a/library/clock.tcl
+++ b/library/clock.tcl
@@ -13,7 +13,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: clock.tcl,v 1.59 2009/11/19 11:59:54 dkf Exp $
+# RCS: @(#) $Id: clock.tcl,v 1.60 2010/02/09 22:27:46 dkf Exp $
 #
 #----------------------------------------------------------------------
 
@@ -724,7 +724,7 @@ proc ::tcl::clock::ParseClockFormatFormat {procName format locale} {
 
     try {
 	return [ParseClockFormatFormat2 $format $locale $procName]
-    } trap clock {result opts} {
+    } trap CLOCK {result opts} {
 	dict unset opts -errorinfo
 	return -options $opts $result
     } finally {
-- 
cgit v0.12