--- a/autobm.el	Fri Dec 11 18:54:46 2015 +0200
+++ b/autobm.el	Sat Dec 12 00:45:05 2015 +0200
@@ -1,6 +1,7 @@
 ;;; autobm.el --- suggest bookmark name from local context
 
 (require 'cl-lib)
+(require 'bookmark)
 
 (defvar autobm-mode-handlers
   '((emacs-lisp-mode . (autobm-try-semantic))
@@ -64,7 +65,7 @@
   (interactive "P")
   (let ( (name (autobm-suggest)) )
     (when name
-      (setq name (read-string "Set bookmark: "  name bookmark-minibuffer-read-name-map name)))
+      (setq name (read-string "Set bookmark: " name bookmark-minibuffer-read-name-map name)))
     (bookmark-set name no-overwrite)))
 
 ;; (global-set-key (kbd "C-x r m") 'autobm)