cl-mvc-rest/cl-mvc-rest-uri

diff --git a/str.lisp b/str.lisp
index 1aee813..64ed614 100644
--- a/str.lisp
+++ b/str.lisp
@@ -85,7 +85,7 @@
 (defgeneric atom-str (x))
 
 (defmethod atom-str (x)
-  (string x))
+  (format nil "~A" x))
 
 (defmethod atom-str ((x null))
   "")