       [hover result])))
 
 (defonce ^{:private true :doc "The common hover css."} hover-css
-  (memoize
-    (fn []
+  (delay
+    (do
       (trace :support/hover (str "Processing " StaticStrings/CCW_HOVER_CSS "..."))
       (slurp StaticStrings/CCW_HOVER_CSS))))
 

        (trace :support/hover (str (simple-name this) ": offset-> " offset))
        (let [[_ region] (hover-result-pair #(.getHoverRegion %1 text-viewer offset)
                                            (complement nil?)
                                            (:hovers-by-state-mask @(state-atom))
                                            @previous-hover
                                            (fn [[hover _]] (reset! previous-hover hover)))]
          region))

  "Prepend text to hover information."
  [hover-info]
  (let [buffer (java.lang.StringBuffer. hover-info)
        prepend-text (HTMLPrinter/convertTopLevelFont (force hover-css)
                                                      (aget (-> (JFaceResources/getFontRegistry)
                                                                (.getFontData StaticStrings/CCW_HOVER_FONT)) 0))]
    (HTMLPrinter/insertPageProlog buffer 0 prepend-text)
