diff --git a/emacs-org.org b/emacs-org.org
index 761d297..1a9e24e 100644
--- a/emacs-org.org
+++ b/emacs-org.org
@@ -221,7 +221,7 @@ Emacs love affair.
       (let* ((clip (if (eq system-type 'darwin)
                        "pbpaste -Prefer rts"
                      "xclip -out -selection 'clipboard' -t text/html"))
-             (format (if (eq mode-name "Org") "org" "markdown"))
+             (format (if (equal mode-name "Org") "org" "markdown"))
              (pandoc (concat "pandoc -f rts -t " format))
              (cmd    (concat clip " | " pandoc))
              (text   (shell-command-to-string cmd)))