diff --git a/init.el b/init.el
index e879ace..7a955ad 100644
--- a/init.el
+++ b/init.el
@@ -744,6 +744,7 @@
              db/org-onenote-open
              db/org-outlook-open
              db/org-rfc-open
+             db/org-clear-stored-links
              db/org-cleanup-continuous-clocks
              db/find-csv-in-org
              db/org-mark-current-default-task
@@ -952,7 +953,7 @@
              org-dblock-write:org-ql))
 
 (use-package ol
-  :init (setq org-link-keep-stored-after-insertion nil)
+  :init (setq org-link-keep-stored-after-insertion t)
   :commands (org-store-link))
 
 (use-package org-id
diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el
index cc5640d..d7d63d7 100644
--- a/site-lisp/db-org.el
+++ b/site-lisp/db-org.el
@@ -524,6 +524,13 @@ open RFC in HTML format in the default browser."
     (warn "`db/rfc-cache-path' not defined or not an absolute writable path, opening RFC in browser.")
     (browse-url (concat "https://tools.ietf.org/html/rfc" number)))))
 
+(defun db/org-clear-stored-links ()
+  "Clear list of stored links by setting `org-stored-links' to NIL.
+This might be handy when links are kept by setting
+`org-link-keep-stored-after-insertion' to T, but too many links
+have accumulated over time."
+  (interactive)
+  (setq org-stored-links nil))
 
 
 ;;; Org Utilities