~ chicken-core (chicken-5) 50a2e04c54f7f20b017283af89470ff3ea220a85

commit 50a2e04c54f7f20b017283af89470ff3ea220a85
Author:     Jim Ursetto <zbigniewsz@gmail.com>
AuthorDate: Mon Mar 18 19:55:45 2013 -0500
Commit:     Jim Ursetto <zbigniewsz@gmail.com>
CommitDate: Mon Mar 18 19:56:14 2013 -0500

    Fix mishandling of network-error arguments in 79cf5e9a0ac7

diff --git a/tcp.scm b/tcp.scm
index be57c1f8..db713bb8 100644
--- a/tcp.scm
+++ b/tcp.scm
@@ -226,14 +226,15 @@ EOF
 (define-syntax network-error
   (syntax-rules ()
     ((_ loc msg . args)
-     (network-error/errno loc (##sys#update-errno) msg args))))
+     (network-error/errno loc (##sys#update-errno) msg . args))))
 
 (define-syntax network-error/errno
   (syntax-rules ()
     ((_ loc errno msg . args)
      (##sys#signal-hook #:network-error loc
-                        (string-append (string-append msg " - ")
-                                       (general-strerror errno))))))
+			(string-append (string-append msg " - ")
+				       (general-strerror errno))
+			. args))))
 
 (define ##net#parse-host
   (let ((substring substring))