diff --git a/add-a-gram.lisp b/add-a-gram.lisp
index 3a08cce..607c11b 100644
--- a/add-a-gram.lisp
+++ b/add-a-gram.lisp
@@ -42,11 +42,10 @@
     foo))
 
 (defun sort-word (word)
-  (concatenate 'string (sort (coerce word 'list) #'char<)))
-
+  (sort (copy-seq word) #'char<))
+  
 (defun show-result (sorted-word)
-  (cond ((= (length sorted-word) 3)
-	   (format t "~A~%" (gethash sorted-word *wordlist*)) )
-	(t
-	   (format t "~A~%" (gethash sorted-word *wordlist*))
-	   (show-result (add-a-gram-p sorted-word)))))
\ No newline at end of file
+  (format t "~A~%" (gethash sorted-word *wordlist*))
+  (unless (= (length sorted-word) 3)
+    (show-result (add-a-gram-p sorted-word))))
+