diff --git a/extra/io/encodings/8-bit/8-bit.factor b/extra/io/encodings/8-bit/8-bit.factor
index 88414efd16..a8cd1fea91 100755
--- a/extra/io/encodings/8-bit/8-bit.factor
+++ b/extra/io/encodings/8-bit/8-bit.factor
@@ -37,8 +37,7 @@ IN: io.encodings.8-bit
     2dup swap length <= [ tail ] [ drop ] if ;
 
 : process-contents ( lines -- assoc )
-    [ "#" split1 drop ] map
-    [ empty? not ] filter
+    [ "#" split1 drop ] map harvest
     [ "\t" split 2 head [ 2 tail-if hex> ] map ] map ;
 
 : byte>ch ( assoc -- array )
diff --git a/extra/io/sockets/sockets-docs.factor b/extra/io/sockets/sockets-docs.factor
index 2061a123de..db07caa330 100755
--- a/extra/io/sockets/sockets-docs.factor
+++ b/extra/io/sockets/sockets-docs.factor
@@ -1,5 +1,5 @@
 USING: help.markup help.syntax io io.backend threads
-strings byte-arrays continuations ;
+strings byte-arrays continuations quotations ;
 IN: io.sockets
 
 ARTICLE: "network-addressing" "Address specifiers"
diff --git a/extra/io/sockets/sockets.factor b/extra/io/sockets/sockets.factor
index 0975f83c46..167f013d32 100755
--- a/extra/io/sockets/sockets.factor
+++ b/extra/io/sockets/sockets.factor
@@ -239,7 +239,7 @@ HOOK: (send) io-backend ( packet addrspec datagram -- )
 : parse-addrinfo-list ( addrinfo -- seq )
     [ addrinfo-next ] follow
     [ addrinfo>addrspec ] map
-    [ ] filter ;
+    sift ;
 
 : prepare-resolve-host ( host serv passive? -- host' serv' flags )
     #! If the port is a number, we resolve for 'http' then