Fix [Bug 1415725]

2 files changed, 7 insertions, 2 deletions

diff --git a/ChangeLog b/ChangeLog
index 74294fb..debe429 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-01-26  Donal K. Fellows  <dkf@users.sf.net>
+
+	* doc/dict.n: Fixed silly bug in example. Thanks to Heiner Marxen
+	<heiner.marxen@unsel.de> for catching this! [Bug 1415725]
+
 2006-01-26  Donal K. Fellows  <donal.k.fellows@manchester.ac.uk>
 
 	* unix/tclUnixChan.c (TclpOpenFileChannel): Tidy up and comment the
diff --git a/doc/dict.n b/doc/dict.n
index f0d4ea9..ab05bba 100644
--- a/doc/dict.n
+++ b/doc/dict.n
@@ -4,7 +4,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\"
-'\" RCS: @(#) $Id: dict.n,v 1.11 2004/11/12 09:01:25 das Exp $
+'\" RCS: @(#) $Id: dict.n,v 1.12 2006/01/26 23:21:06 dkf Exp $
 '\"
 .so man.macros
 .TH dict n 8.5 Tcl "Tcl Built-In Commands"
@@ -262,7 +262,7 @@ A localizable version of \fBstring toupper\fR:
 .CS
 # Set up the basic C locale
 set capital [\fBdict create\fR C [\fBdict create\fR]]
-foreach c {abcdefghijklmnopqrstuvwxyz} {
+foreach c [split {abcdefghijklmnopqrstuvwxyz} ""] {
    \fBdict set\fR capital C $c [string toupper $c]
 }