Added missing braces to validation code

2 files changed, 7 insertions, 2 deletions

diff --git a/ChangeLog b/ChangeLog
index 511e871..823487f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-08-14  Donal K. Fellows  <donal.k.fellows@manchester.ac.uk>
+
+	* library/clock.tcl (::tcl::clock::add): Added missing braces to
+	clockval validation code. Pointed out on comp.lang.tcl.
+
 2006-08-11  Donal K. Fellows  <donal.k.fellows@manchester.ac.uk>
 
 	* generic/tclNamesp.c: Improvements in buffer management to make
diff --git a/library/clock.tcl b/library/clock.tcl
index d6ef8a3..663fac0 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.33 2006/07/31 03:27:13 kennykb Exp $
+# RCS: @(#) $Id: clock.tcl,v 1.34 2006/08/14 10:01:06 dkf Exp $
 #
 #----------------------------------------------------------------------
 
@@ -4341,7 +4341,7 @@ proc ::tcl::clock::add { clockval args } {
              ?number units?...\
              ?-gmt boolean? ?-locale LOCALE? ?-timezone ZONE?\""
     }
-    if { [catch { expr wide($clockval) } result] } {
+    if { [catch { expr {wide($clockval)} } result] } {
 	return -code error $result
     }