           (string? idx) [kw' (symbol idx)]
           :else [kw' idx])))
 
-(defn sayid-buf-def-at-point
+(defn ^:nrepl sayid-buf-def-at-point
   [{:keys [transport trace-id path] :as msg}]
   (let [path' (str-vec->arg-path path)]
     (util/def-ns-var '$s '* (-> [:id (keyword trace-id)] ;;TODO use intern

       sd/ws-add-trace-ns!*)
  (send-status-done msg))

(defn sayid-remove-all-traces
  [{:keys [transport] :as msg}]
  (sd/ws-remove-all-traces!)
  (send-status-done msg))

(defn sayid-disable-all-traces
  [{:keys [transport] :as msg}]
  (sd/ws-disable-all-traces!)
  (send-status-done msg))

(defn sayid-set-printer
  [{:keys [transport printer] :as msg}]
  (println printer)
  (if (.startsWith printer ".")

    (replay! kids))
  (send-status-done msg))

(defn ^:nrepl sayid-replay-at-point
  [{:keys [transport source file line] :as msg}]
  (try (let [{start-line :line} (get-meta-at-pos-in-source file line source)
             matches (query-ws-by-file-line-range file start-line line)
