Use fork-thread to start new threads to inherit syslog resource.

scheme/ftpd/ftpd.scm

@@ -341,7 +341,7 @@
       (lambda (socket address)
 	(let ((remote-address (socket-address->string address)))
 	  (set-ftp-socket-options! socket)
-	  (spawn
+	  (fork-thread
 	   (lambda ()
 	     (handle-connection-encapsulated ftpd-options
 					     socket

scheme/packages.scm

@@ -632,7 +632,7 @@
 	define-record-types
 	handle-fatal-error
 	threads threads-internal    ; last one to get CURRENT-THREAD
-	fluids
+	fluids thread-fluids
 	locks
 	(subset srfi-13 (string-map string-trim-both string-index))
 	(subset big-util (any? partition-list))