diff --git a/src/workgroups2.el b/src/workgroups2.el
index 3bf8e9e20791c5a6107e07bef726a4c0e0e8e892..ad303356f17489c037b1429d9bd04f58a0f42ea2 100644
--- a/src/workgroups2.el
+++ b/src/workgroups2.el
@@ -4145,7 +4145,7 @@ nil otherwise."
   (and (not (wg-dups-p (wg-buf-list) :key 'wg-buf-uid :test 'string=))
        (not (wg-dups-p (wg-workgroup-list) :key 'wg-workgroup-uid :test 'string=))))
 
-(defun wg-find-session-file (filename)
+(defun wg-open-session (filename)
   "Load a session visiting FILENAME, creating one if none already exists."
   (interactive "FFind session file: ")
   (cond ((file-exists-p filename)
@@ -4176,7 +4176,7 @@ nil otherwise."
          (wg-query-and-save-if-modified)
          (wg-reset-internal (wg-make-session :file-name filename))
          (wg-fontified-message (:cmd "(New Workgroups session file)")))))
-(defalias 'wg-open-session 'wg-find-session-file)
+(defalias 'wg-find-session-file 'wg-open-session)
 
 (defun wg-write-sexp-to-file (sexp file)
   "Write the printable representation of SEXP to FILE."
diff --git a/tests/workgroups2-tests.el b/tests/workgroups2-tests.el
index 46b7e9e5e56456ca6db9d06a1fb3ad8845381bfc..72b70bb3a8861de73bda69c4d8eec7fe0181cccf 100644
--- a/tests/workgroups2-tests.el
+++ b/tests/workgroups2-tests.el
@@ -106,8 +106,7 @@
 
 (defmacro test-pickel (value)
   "Test `wg-pickel' `wg-unpickel' on VALUE."
-  `(progn
-     (eq (wg-unpickel (wg-pickel ,value)) ,value)))
+  `(eq (wg-unpickel (wg-pickel ,value)) ,value))
 
 (ert-deftest 110-wg-pickel ()
   (test-pickel 123)
@@ -117,6 +116,7 @@
   (test-pickel (point-marker))    ; #<marker at 3427 in tests.el>
   (test-pickel (make-marker))     ; #<marker in no buffer>
   (test-pickel (list 'describe-variable 'help-xref-stack-item (get-buffer "*Help*")))
+  ;;(test-pickel (window-tree))
   ;; TODO:
   ;;(test-pickel (current-window-configuration))
   )