From 5ba7f23259a4e982822666959f1881c7cb6288a7 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Mon, 21 Sep 2009 08:11:08 +0000
Subject: [PATCH] `set-ftp-socket-options!' may fail; move it to a place where
 proper error handling is in place.

---
 scheme/ftpd/ftpd.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scheme/ftpd/ftpd.scm b/scheme/ftpd/ftpd.scm
index a1d7538..f3a59e9 100644
--- a/scheme/ftpd/ftpd.scm
+++ b/scheme/ftpd/ftpd.scm
@@ -346,7 +346,6 @@
 	protocol-family/internet
 	(lambda (socket address)
 	  (let ((remote-address (socket-address->string address)))
-	    (set-ftp-socket-options! socket)
 	    (fork-thread
 	     (lambda ()
 	       (handle-connection-encapsulated ftpd-options
@@ -375,6 +374,8 @@
 
 	  (log (syslog-level debug) "socket: ~S" socket-string)
 	    
+	  (set-ftp-socket-options! socket)
+
 	  (dynamic-wind
 	   (lambda () 'fick-dich-ins-knie)
 	   (lambda ()