 
 (defn send-hipchat-build-notification [build]
   (let [project (build/get-project build)
-        message (build-message @build)
-        url (build-url @build)
+        message (build-message build)
+        url (build-url build)
         message (format "<a href='%s'>%s</a>" url message)
         success? (-> @build :failed not)
         color (if success? :green :red)]

  (:require [circle.ruby :as ruby])
  (:use [clojure.tools.logging :only (info)])
  (:use [circle.util.straight-jacket])
  (:require [clipchat.rooms])
  (:require [circle.model.build :as build])
  (:require [circle.model.project :as project])

  (ruby/send (ruby/->instance :Project project) :absolute_url))

(defn build-url [build]
  (ruby/send (ruby/->instance :Build @build) :absolute_url))

(defn send-hipchat-message [project message & {:keys [color]
                                               :or {color :yellow}}]
  (let [token (-> project :hipchat_api_token)
        room (-> project :hipchat_room)]
    (when (and token room)
      (clipchat.rooms/message
       token
