`set-ftp-socket-options!' may fail; move it to a place where proper

error handling is in place.

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 ()