 (defn get-language
   "Get the currently defined text-to-speech language"
   [robot]
-  (call-service robot :tts "getLanguage"))
+  (->
+   (call-service robot :tts "getLanguage")
+   (.get)))
 
 (defn set-language
   "Set the language the robot should use"

(defn get-joint-angles
  "Return a map of the current joint angles for a robot"
  [robot]
  (zipmap joint-names
          (call-service robot :motion "getAngles"
                      ["Body" true])))
(defn get-body-names
  "Return names of joints in the specified chain"
  [robot name]
  (call-service robot :motion "getBodyNames"  [name]))

;; broken - can't construct variant holding array of values
(defn set-joint-angles

(defn get-volume
  "Get the current volume for the robot"
  [robot]
  (->
   (call-service robot :tts "getVolume")
   (.get)))

(defn set-volume
  "Set the volume used by the robot"
