1 files changed, 2 insertions, 4 deletions

diff --git a/src/serializing.lisp b/src/serializing.lisp
index 205190f..71b0fb2 100644
--- a/src/serializing.lisp
+++ b/src/serializing.lisp
@@ -3,7 +3,7 @@
 (defpackage :ukkoclot/serializing
   (:use :c2cl :iterate)
   (:import-from :log)
-  (:import-from :ukkoclot/strings :lisp->snake-case)
+  (:import-from :str)
   (:local-nicknames
    (:jzon :com.inuoe.jzon))
   (:export :fixup-args :fixup-value :parse-value :try-parse-value))
@@ -11,9 +11,7 @@
 
 (defun fixup-args (args)
   (iter (for (key . value) in args)
-        (collect
-            (cons (string-downcase (lisp->snake-case (symbol-name key)))
-                  (fixup-value value)))))
+        (collect (cons (str:snake-case key) (fixup-value value)))))
 
 (defgeneric fixup-value (value)
   (:documentation "Fixup outgoing *top-level* `value' before passing it to telegram.")