ftp.server: don't mutate addrspecs anymore

basis/ftp/server/server-tests.factor

@@ -25,7 +25,7 @@ IN: ftp.server.tests
                 "ftp" >>protocol
                 "localhost" >>host
                 create-test-file >>path
-                _ call
+                @
         ]
         [ stop-server ] tri
     ] with-unique-directory drop ; inline

basis/ftp/server/server.factor

@@ -115,7 +115,7 @@ ERROR: type-error type ;
     ] recover ;
 
 : random-local-server ( -- server )
-    remote-address get class new 0 >>port binary <server> ;
+    remote-address get class new binary <server> ;
 
 : port>bytes ( port -- hi lo )
     [ -8 shift ] keep [ 8 bits ] bi@ ;