                    (wg-workgroup-list))))
       (if return-p
           output
-        (message "%s" output)))))
+        (message "%s%s" output (or message ""))))))
 
 ;;;###autoload
 (defun narf/workgroup-update-names (&optional wg)

           (propertize message 'face message-face)))

;;;###autoload
(defun narf/workgroup-display (&optional suppress-update return-p)
  (interactive)
  (when (wg-current-session t)
    (unless (eq suppress-update t)

        (narf:workgroup-delete))
    (evil-window-delete)))

;;;###autoload
(defun narf/wg-autosave ()
  (when (wg-current-session t)
    (shut-up! (wg-save-session))))

(provide 'defuns-workgroup)
;;; defuns-workgroup.el ends here
