diff --git a/src/honey/sql.cljc b/src/honey/sql.cljc
index 0e7c875..2df57d9 100644
--- a/src/honey/sql.cljc
+++ b/src/honey/sql.cljc
@@ -83,7 +83,8 @@
      :cljs str/upper-case))
 
 (defn sql-kw [k]
-  (-> k (name) (upper-case) (str/replace "-" " ")))
+  (-> k (name) (upper-case)
+      (as-> s (if (= "-" s) s (str/replace s "-" " ")))))
 
 (defn- namespace-_ [x] (some-> (namespace x) (str/replace "-" "_")))
 (defn- name-_      [x] (str/replace (name x) "-" "_"))