diff --git a/bundle/bundle--mk.el b/bundle/bundle--mk.el
index 195766f2..117a5111 100644
--- a/bundle/bundle--mk.el
+++ b/bundle/bundle--mk.el
@@ -168,27 +168,34 @@
     (let ((unique-id (format "DE-%04d-%04d" random-number-1 random-number-2)))
       (message "ID: %s" unique-id) unique-id)))
 
-(defmacro mk/open-html-page (name path)
+(defmacro mk/open-html-page (name path buffer-name)
   "Make interactive functions to call important docs"
   `(defun ,name ()
      (interactive)
      (eww (concat "file://"
 	          (and (eq system-type 'windows-nt)
 		       "/")
-	          (expand-file-name ,path)))))
+	          (expand-file-name ,path)))
+     (rename-buffer ,buffer-name)))
 
 (mk/open-html-page mk/clsite-clm
-		   "~/cl-sites/www.cs.cmu.edu/Groups/AI/html/cltl/clm/node1.html")
+		           "~/cl-sites/www.cs.cmu.edu/Groups/AI/html/cltl/clm/node1.html"
+                   "*mk/clsite-clm*")
 (mk/open-html-page mk/clsite-pcl
-		   "~/cl-sites/gigamonkeys.com/book/index.html")
+		           "~/cl-sites/gigamonkeys.com/book/index.html"
+                   "*mk/clsite-pcl*")
 (mk/open-html-page mk/clsite-clcb
-		   "~/cl-sites/lispcookbook.github.io/cl-cookbook/index.html")
+		           "~/cl-sites/lispcookbook.github.io/cl-cookbook/index.html"
+                   "*mk/clsite-clcb*")
 (mk/open-html-page mk/clsite-sqlite
-		   "~/cl-sites/sqlite-doc-3440000/index.html")
+		           "~/cl-sites/sqlite-doc-3440000/index.html"
+                   "*mk/clsite-sqlite*")
 (mk/open-html-page mk/clsite-asdf
-		   "~/cl-sites/asdf.common-lisp.dev/index.html")
+		           "~/cl-sites/asdf.common-lisp.dev/index.html"
+                   "*mk/clsite-asdf*")
 (mk/open-html-page mk/clsite-lisp-docs
-		   "~/cl-sites/lisp-docs.github.io/index.html")
+		           "~/cl-sites/lisp-docs.github.io/index.html"
+                   "*mk/clsite-lisp-docs*")
 
 (defun mk/wget-mirror-site (url)
   "Use wget to mirror a website for offline use. Takes a URL as argument."