diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index f0d5648f81..c50f2538b5 100644
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -694,6 +694,11 @@ ERROR: assert-sequence got expected ;
 : assert-sequence= ( a b -- )
     2dup sequence= [ 2drop ] [ assert-sequence ] if ;
 
+ERROR: assert-string got expected ;
+
+: assert-string= ( a b -- )
+    2dup sequence= [ 2drop ] [ assert-string ] if ;
+
 <PRIVATE
 
 : sequence-hashcode-step ( oldhash newpart -- newhash )