diff --git a/extra/channels/channels-tests.factor b/extra/channels/channels-tests.factor
index 5c339d3406..1a08fd3971 100644
--- a/extra/channels/channels-tests.factor
+++ b/extra/channels/channels-tests.factor
@@ -10,39 +10,39 @@ IN: temporary
 ] unit-test
 
 { V{ 10 } } [
-   V{ } clone <channel>
-   [ from swap push ] in-thread
-   10 swap to 
+    V{ } clone <channel>
+    [ from swap push ] in-thread
+    10 swap to 
 ] unit-test
 
 { 20 } [
-   <channel>
-   [ 20 swap to ] in-thread
-   from 
+    <channel>
+    [ 20 swap to ] in-thread
+    from 
 ] unit-test
 
 { V{ 1 2 3 4 } } [
-   V{ } clone <channel>
-   [ from swap push ] in-thread
-   [ from swap push ] in-thread
-   [ from swap push ] in-thread
-   [ from swap push ] in-thread
-   4 over to 
-   2 over to 
-   1 over to 
-   3 swap to 
-   [ <=> ] sort
+    V{ } clone <channel>
+    [ from swap push ] in-thread
+    [ from swap push ] in-thread
+    [ from swap push ] in-thread
+    [ from swap push ] in-thread
+    4 over to 
+    2 over to 
+    1 over to 
+    3 swap to 
+    natural-sort
 ] unit-test
 
 { V{ 1 2 4 9 } } [
-   V{ } clone <channel>
-   [ 4 swap to ] in-thread
-   [ 2 swap to ] in-thread
-   [ 1 swap to ] in-thread
-   [ 9 swap to ] in-thread
-   2dup from swap push 
-   2dup from swap push 
-   2dup from swap push 
-   dupd from swap push 
-   [ <=> ] sort
+    V{ } clone <channel>
+    [ 4 swap to ] in-thread
+    [ 2 swap to ] in-thread
+    [ 1 swap to ] in-thread
+    [ 9 swap to ] in-thread
+    2dup from swap push 
+    2dup from swap push 
+    2dup from swap push 
+    dupd from swap push 
+    natural-sort
 ] unit-test
diff --git a/extra/channels/channels.factor b/extra/channels/channels.factor
index 54f0d7dd4e..07b5d2f5d5 100644
--- a/extra/channels/channels.factor
+++ b/extra/channels/channels.factor
@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 !
 ! Channels - based on ideas from newsqueak
-USING: kernel sequences threads continuations random math ;
+USING: kernel sequences sequences.lib threads continuations random math ;
 IN: channels
 
 TUPLE: channel receivers senders ;
@@ -15,9 +15,6 @@ GENERIC: from ( channel -- value )
 
 <PRIVATE
 
-: delete-random ( seq -- value )
-    [ length random ] keep [ nth ] 2keep delete-nth ;
-
 : wait ( channel -- )
     [ channel-senders push stop ] curry callcc0 ;