Index: modules/comm/comm.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/comm/comm.tcl,v
retrieving revision 1.4
diff -u -r1.4 comm.tcl
--- modules/comm/comm.tcl	15 Feb 2002 05:35:30 -0000	1.4
+++ modules/comm/comm.tcl	6 Mar 2002 17:58:01 -0000
@@ -1046,6 +1046,26 @@
 	    flush $fid
 	}
     }
+
+    if {$err == 1} {
+	# SF Tcllib Patch #526499
+	# (See http://sourceforge.net/tracker/?func=detail&aid=526499&group_id=12883&atid=312883
+	#  for initial request and comments)
+	#
+	# Error in async call. Look for [bgerror] to report it. Same
+	# logic as in Tcl itself. Errors thrown by bgerror itself get
+	# reported to stderr.
+
+	if {[catch {
+	    bgerror $ret
+	} msg]} {
+	    puts stderr "bgerror failed to handle background error."
+	    puts stderr "    Original error: $ret"
+	    puts stderr "    Error in bgerror: $msg"
+	    flush stderr
+	}
+    }
+    return
 }
 
 ###############################################################################
