diff --git a/lisp/org-capture.el b/lisp/org-capture.el
index cd4fcbf37..648031169 100644
--- a/lisp/org-capture.el
+++ b/lisp/org-capture.el
@@ -1508,7 +1508,7 @@ Of course, if exact position has been required, just put it there."
               (condition-case err
 	          (bookmark-set bookmark)
                 (error
-                 (message (format "Bookmark set error: %S" err)))))))
+                 (message "Bookmark set error: %S" err))))))
 	(move-marker org-capture-last-stored-marker (point))))))
 
 (defun org-capture-narrow (beg end)
diff --git a/lisp/org-crypt.el b/lisp/org-crypt.el
index 170532788..797f8a991 100644
--- a/lisp/org-crypt.el
+++ b/lisp/org-crypt.el
@@ -246,7 +246,7 @@ Assume `epg-context' is set."
 	     ;; contents in the buffer.
 	     (error
 	      (insert contents)
-	      (error (error-message-string err)))))
+	      (error "%s" (error-message-string err)))))
 	 (when folded-heading
 	   (goto-char folded-heading)
 	   (org-fold-subtree t))
diff --git a/lisp/org.el b/lisp/org.el
index a21bf8188..5df847125 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -8494,7 +8494,7 @@ If the file does not exist, throw an error."
 		      ;; Save position before error-ing out so user
 		      ;; can easily move back to the original buffer.
 		      (error (funcall save-position-maybe)
-			     (error (nth 1 err)))))))
+			     (error "%s" (error-message-string err)))))))
      ((functionp cmd)
       (save-match-data
 	(set-match-data link-match-data)