 
 (defn- add-touch-events! []
   (doto ($ "body")
-    (.on "touchstart" tt-link-sel on-touchstart)
-    ))
+    (.on "touchend" on-touchend-body)
+    (.on "touchend" tt-link-sel on-touchend-icon)))
 
 (defn init!
   "Initialize tooltip events."

  )

;;------------------------------------------------------------------------------
;; Events
;;------------------------------------------------------------------------------


    (.on "click" tt-link-sel on-click)
    (.on "mouseenter" tt-link-sel on-mouseenter)
    (.on "mouseleave" tt-link-sel on-mouseleave))
  (when has-touch-events?
    (add-touch-events!)))