Fix cider-ping command

clojure-emacs · Oct 13, 2014 · 0a0b934 · 0a0b934
1 parent 9d5a280
commit 0a0b934
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/cider-interaction.el b/cider-interaction.el
@@ -1370,9 +1370,9 @@ If invoked with a prefix ARG eval the expression after inserting it."
   (cider-insert-in-repl (cider-ns-form) arg))
 
 (defun cider-ping ()
-  "Check that communication with the server works."
+  "Check that communication with the nREPL server works."
   (interactive)
-  (message (read (nrepl-sync-request:eval "\"PONG\"" nil nil t))))
+  (message (read (nrepl-dict-get (nrepl-sync-request:eval "\"PONG\"") "value"))))
 
 (defun clojure-enable-cider ()
   "Turn on CIDER mode (see command `cider-mode').