Ah, OK.  I suggested `(mapcar ...)` because I didn't know `copy-sequence` is in core elisp.  I though it was in cl.