gistfile1.el

(defun nrepl-eval-expression-at-point-in-repl ()
  (interactive)
  (let ((form (nrepl-expression-at-point)))
    ;; Strip excess whitespace
    (while (string-match "\\`\s+\\|\n+\\'" form)
      (setq form (replace-match "" t t form)))
    (set-buffer (cider-current-repl-buffer))
    (goto-char (point-max))
    (insert form)
    (nrepl-return)))

Doh! I hate it when I find something new in emacs, get it all setup and working, only to find that it's already been implemented. Don't use this, use 'cider-eval-last-sexp-to-repl instead.