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)))))))