diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 9ad3aca2c1..bc729bb10e 100644
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -377,8 +377,12 @@ PRIVATE>
 
 : surround ( seq1 seq2 seq3 -- newseq ) swapd 3append ; inline
 
+: surround-as ( seq1 seq2 seq3 exemplar -- newseq ) [ swapd ] dip 3append-as ; inline
+
 : glue ( seq1 seq2 seq3 -- newseq ) swap 3append ; inline
 
+: glue-as ( seq1 seq2 seq3 exemplar -- newseq ) swapd 3append-as ; inline
+
 : change-nth ( ..a i seq quot: ( ..a elt -- ..b newelt ) -- ..b )
     [ [ nth ] dip call ] 2keepd set-nth-unsafe ; inline