From cf347038bde8690bcfc73be6c52ca64841787327 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 4 Sep 2010 18:54:39 -0700
Subject: [PATCH] ftp.server: don't mutate addrspecs anymore

---
 basis/ftp/server/server-tests.factor | 2 +-
 basis/ftp/server/server.factor       | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/ftp/server/server-tests.factor b/basis/ftp/server/server-tests.factor
index 2572f36cb0..585728dff6 100644
--- a/basis/ftp/server/server-tests.factor
+++ b/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
diff --git a/basis/ftp/server/server.factor b/basis/ftp/server/server.factor
index 73de439a01..9a4858337e 100644
--- a/basis/ftp/server/server.factor
+++ b/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@ ;