diff --git a/basis/mime/multipart/multipart.factor b/basis/mime/multipart/multipart.factor
index 0edfb05a30..0cf7556bcd 100755
--- a/basis/mime/multipart/multipart.factor
+++ b/basis/mime/multipart/multipart.factor
@@ -137,9 +137,6 @@ ERROR: no-content-disposition multipart ;
         [ no-content-disposition ]
     } case ;
 
-: assert-sequence= ( a b -- )
-    2dup sequence= [ 2drop ] [ assert ] if ;
-
 : read-assert-sequence= ( sequence -- )
     [ length read ] keep assert-sequence= ;
 
diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 564309a6fb..b614c15150 100755
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -568,6 +568,9 @@ M: sequence <=>
     2dup [ length ] bi@ =
     [ mismatch not ] [ 2drop f ] if ; inline
 
+: assert-sequence= ( a b -- )
+    2dup sequence= [ 2drop ] [ assert ] if ;
+
 : sequence-hashcode-step ( oldhash newpart -- newhash )
     >fixnum swap [
         [ -2 fixnum-shift-fast ] [ 5 fixnum-shift-fast ] bi