diff --git a/mattermost.el b/mattermost.el
index 9ee4dee..7578da3 100644
--- a/mattermost.el
+++ b/mattermost.el
@@ -164,6 +164,7 @@ if the user is not present"
   "The keymap for mattermost-mode")
 
 (defun show-root ()
+  "Populates the Mattermost Root buffer and changes to it"
   (interactive)
   (let ((rootb (get-buffer-create "*Mattermost Root*")))
     (with-current-buffer rootb
@@ -181,7 +182,7 @@ if the user is not present"
                 (insert (format "> [%s] %s\n" channel-id (if (string= channel-display-name "")
                                                              channel-name
                                                            channel-display-name)))))))))
-    (set-buffer rootb)))
+    (switch-to-buffer rootb)))
 
 (define-derived-mode mattermost-root-mode fundamental-mode "Mattermost Root"
   "Mode to list the Mattermost teams and channels to allow the