diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el
index fcab018..e43702f 100644
--- a/site-lisp/db-org.el
+++ b/site-lisp/db-org.el
@@ -2235,39 +2235,12 @@ PARAMS may contain the following values:
   (bookmark-jump bookmark))
 
 (defun db/org-bookmark-store-link ()
-  "Store a link to the bookmark at point.
-
-When in Dired, try to find bookmark that points to the file at
-point.  When in a buffer associated with a file, try to find a
-bookmark that points to this file.  Note that in this case, for
-performance reasons, equality checks between file names is not
-done with `file-equal-p', which seems to be too slow on Windows;
-a simple `string=' is used instead, which may not be completely
-accurate in certain cases."
-  (let (file bookmark bmks)
-    (cond ((eq major-mode 'dired-mode)
-	   (setq file (abbreviate-file-name (dired-get-filename))))
-	  ((buffer-file-name (buffer-base-buffer))
-	   (setq file (abbreviate-file-name
-		       (buffer-file-name (buffer-base-buffer))))))
-    (if (not file)
-	(when (eq major-mode 'bookmark-bmenu-mode)
-	  (setq bookmark (bookmark-bmenu-bookmark)))
-      (when (setq bmks
-		  (->> (bookmark-all-names)
-                       (-map (lambda (name)
-                               (if (string= file
-                                            (abbreviate-file-name
-                                             (bookmark-location name)))
-                                   name)))
-                       (delete nil)))
-	(setq bookmark
-	      (if (eq 1 (length bmks))
-		  (car bmks)
-		(completing-read "Bookmark: " bmks nil t nil nil (car bmks))))))
-    (if bookmark
-	(org-link-store-props :link (concat "bookmark:" bookmark)
-			      :description bookmark))))
+  "Store a link to the bookmark at point."
+  (let (bookmark)
+    (when (eq major-mode 'bookmark-bmenu-mode)
+      (setq bookmark (bookmark-bmenu-bookmark))
+      (org-link-store-props :link (concat "bookmark:" bookmark)
+			    :description bookmark))))
 
 
 ;;; End