From 15ce334e7ed6b506575daee53f1fc31c3954c8ae Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ragnar=20Dahl=C3=A9n?= <r.dahlen@gmail.com>
Date: Mon, 26 Oct 2015 16:58:37 +0000
Subject: [PATCH] Coerce keyword keys to strings in as-properties

---
 src/squee/impl/util.clj | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/squee/impl/util.clj b/src/squee/impl/util.clj
index 9747395..2663103 100644
--- a/src/squee/impl/util.clj
+++ b/src/squee/impl/util.clj
@@ -23,7 +23,7 @@
   [m]
   (let [p (Properties.)]
     (doseq [[k v] m]
-      (.setProperty p k v))
+      (.setProperty p (name k) v))
     p))
 
 (def ^{:doc "Map of classnames to subprotocols"} classnames