 (defun sayid-trace-all-ns-in-dir ()
   (interactive)
   (nrepl-send-sync-request (list "op" "sayid-trace-all-ns-in-dir"
-                                 "dir" (sayid-set-trace-ns-dir)))
+                                 "dir" (sayid-set-trace-ns-dir))
+                           (cider-current-connection))
   (sayid-show-traced))
 
 ;;;###autoload
 (defun sayid-trace-ns-in-file ()
   (interactive)
   (nrepl-send-sync-request (list "op" "sayid-trace-ns-in-file"
-                                 "file" (buffer-file-name)))
+                                 "file" (buffer-file-name))
+                           (cider-current-connection))
   (sayid-show-traced))
 
 ;;;###autoload

;;;###autoload
(defun sayid-replay-workspace-query-point ()
  (interactive)
  (nrepl-send-sync-request (list "op" "sayid-replay-workspace"))
  (sayid-query-form-at-point))

;;;###autoload

  (nrepl-send-sync-request (list "op" "sayid-trace-ns-by-pattern"
                                 "ns-pattern" (read-string "Namespace to trace (*=wildcard) "
                                                           (cider-current-ns))
                                 "ref-ns" (cider-current-ns))
                           (cider-current-connection))
  (sayid-show-traced))

;;;###autoload
(defun sayid-trace-enable-all ()
  (interactive)
  (nrepl-send-sync-request (list "op" "sayid-enable-all-traces"
                                 "file" (buffer-file-name))
                           (cider-current-connection))
  (sayid-show-traced))

;;;###autoload
(defun sayid-trace-disable-all ()
  (interactive)
  (nrepl-send-sync-request (list "op" "sayid-disable-all-traces"
                                 "file" (buffer-file-name))
                           (cider-current-connection))
  (sayid-show-traced))

;;;###autoload
