Bug in STABLE-SORT on strings

ECL (Embeddable Common-Lisp) 16.1.2 (git:9c3f55fe)

(let ((a (copy-seq "BCA")))
   (stable-sort a #'char<)
   a)
"BCA"

Expected result is "ABC", since STABLE-SORT is destructive.