Paste: Stack effect issue

SYMBOLS: mark1 mark2 ;

: move-until ( seq1 seq2 -- seq1 seq2 )
    [ unclip ] dip swap dup
    { { mark1 [ drop ] }
      { mark2 [ drop ] }
      [ suffix move-until ]
    } case ;