   parameters :square, :project, and :round. The default cap is :round."
   [cap-mode]
   (let [cap-mode (resolve-constant-key cap-mode stroke-cap-modes)]
-    (.strokeCap (current-graphics) (int cap-mode))))
+    (.strokeCap (current-graphics)
+                #+clj (int cap-mode)
+                #+cljs (str cap-mode))))
 
 (defn
   ^{:requires-bindings true

  See cursor-image for specifying a generic image as the cursor
  symbol."
  ([] (.cursor (current-applet)))
  ([cursor-mode] (.cursor (current-applet) (int (resolve-constant-key cursor-mode cursor-modes)))))

(defn
  ^{:requires-bindings true

  renderers."
  [join-mode]
  (let [join-mode (resolve-constant-key join-mode stroke-join-modes)]
    (.strokeJoin (current-graphics)
                 #+clj (int join-mode)
                 #+cljs (str join-mode))))

(defn
  ^{:requires-bindings true
