diff --git a/src/code/unidata.lisp b/src/code/unidata.lisp index 91b5bda681a20e0b1337064dde08aa2df61cb1b0..e0442d8971fe5615d07567469d090f85a41059c1 100644 --- a/src/code/unidata.lisp +++ b/src/code/unidata.lisp @@ -1286,7 +1286,7 @@ (let* ((base (mip result)) (node (search-dictionary base dict))) (values (str base) - (sort (mapcar (lambda (x) (str (subseq x (length base)))) + (sort (mapcar (lambda (x) (subseq (str x) (length base))) (delete base result :test #'string=)) #'string<) (and node (completep node)))))))