From f95ec24acb030561b91c0dc3f9730debf4724eb4 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Mon, 29 Jan 2007 16:51:37 +0000
Subject:         * doc/fcopy.n:  Typo fix. [Bug 1630627]

---
 ChangeLog   | 4 ++++
 doc/fcopy.n | 4 ++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 3c84d7f..3ab26e5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2007-01-29  Don Porter  <dgp@users.sourceforge.net>
+
+	* doc/fcopy.n:	Typo fix. [Bug 1630627]
+
 2007-01-28  Daniel Steffen  <das@users.sourceforge.net>
 
 	* macosx/Tcl.xcodeproj/project.pbxproj:   extract build settings that
diff --git a/doc/fcopy.n b/doc/fcopy.n
index 8a0b28b..6513542 100644
--- a/doc/fcopy.n
+++ b/doc/fcopy.n
@@ -5,7 +5,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\" 
-'\" RCS: @(#) $Id: fcopy.n,v 1.8 2006/11/20 10:14:17 dkf Exp $
+'\" RCS: @(#) $Id: fcopy.n,v 1.9 2007/01/29 16:51:38 dgp Exp $
 '\" 
 .so man.macros
 .TH fcopy n 8.0 Tcl "Tcl Built-In Commands"
@@ -127,7 +127,7 @@ in the command callback
 proc CopyMore {in out chunk bytes {error {}}} {
     global total done
     incr total $bytes
-    if {([string length $error] != 0) || [eof $in] {
+    if {([string length $error] != 0) || [eof $in]} {
 	set done $total
 	close $in
 	close $out
-- 
cgit v0.12