More idiomatic example. [Bug 959602]

1 files changed, 2 insertions, 4 deletions

diff --git a/doc/bgerror.n b/doc/bgerror.n
index e5aa246..29776f4 100644
--- a/doc/bgerror.n
+++ b/doc/bgerror.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: bgerror.n,v 1.5 2004/04/21 19:33:17 dkf Exp $
+'\" RCS: @(#) $Id: bgerror.n,v 1.6 2004/05/25 07:48:21 dkf Exp $
 '\" 
 .so man.macros
 .TH bgerror n 7.5 Tcl "Tcl Built-In Commands"
@@ -77,14 +77,12 @@ package or other kind of library, consider avoiding \fBbgerror\fR.
 The reason for this is that the application programmer may also want
 to define a \fBbgerror\fR, or use other code that does and thus will
 have trouble integrating your code.
-
 .SH "EXAMPLE"
 This \fBbgerror\fR procedure appends errors to a file, with a timestamp.
-
 .CS
 proc bgerror {message} {
     set timestamp [clock format [clock seconds]]
-    set fl [open mylog.txt a]
+    set fl [open mylog.txt {WRONLY CREAT APPEND}]
     puts $fl "$timestamp: bgerror in $::argv '$message'"
     close $fl
 }