diff --git a/basis/ftp/ftp.factor b/basis/ftp/ftp.factor
index cb84a72b94..177e71fbe3 100644
--- a/basis/ftp/ftp.factor
+++ b/basis/ftp/ftp.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2008 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors io kernel sequences ;
+USING: accessors io io.crlf kernel sequences ;
 IN: ftp
 
 SYMBOLS: +active+ +passive+ ;
@@ -14,4 +14,4 @@ TUPLE: ftp-response n strings parsed ;
 : add-response-line ( ftp-response string -- ftp-response )
     over strings>> push ;
 
-: ftp-send ( string -- ) write "\r\n" write flush ;
+: ftp-send ( string -- ) write crlf flush ;
diff --git a/extra/managed-server/chat/chat.factor b/extra/managed-server/chat/chat.factor
index 91936c701f..77757da28c 100644
--- a/extra/managed-server/chat/chat.factor
+++ b/extra/managed-server/chat/chat.factor
@@ -1,10 +1,9 @@
 ! Copyright (C) 2009 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors assocs combinators combinators.smart
-destructors fry io io.encodings.utf8 kernel managed-server
-namespaces parser sequences sorting splitting strings.parser
-unicode.case unicode.categories calendar calendar.format
-locals io.encodings.binary io.encodings.string prettyprint ;
+USING: accessors assocs calendar calendar.format
+combinators.smart io io.crlf io.encodings.utf8 kernel locals
+managed-server namespaces sequences sorting splitting
+unicode.case ;
 FROM: namespaces => set ;
 IN: managed-server.chat
 
@@ -19,7 +18,7 @@ chat-docs [ H{ } clone ] initialize
 CONSTANT: line-beginning "-!- "
 
 : send-line ( string -- )
-    write "\r\n" write flush ;
+    write crlf flush ;
 
 : handle-me ( string -- )
     [