diff --git a/src/workgroups-association.el b/src/workgroups-association.el
index 3cbd7e82e7941ee3aca38da6cdacc1ac39016d88..2df7fce4895bf10e49856cf15d2a2ec50bfa68d7 100644
--- a/src/workgroups-association.el
+++ b/src/workgroups-association.el
@@ -130,7 +130,7 @@ associate them."
 WINDOW-OR-EMACS-WINDOW-TREE with the given WORKGROUP.
 WINDOW-OR-EMACS-WINDOW-TREE must be either a window or a tree of
 the form produced by `(car (window-tree))'."
-  (wg-aif (windowp window-or-emacs-window-tree)
+  (if (windowp window-or-emacs-window-tree)
       (with-current-buffer (window-buffer window-or-emacs-window-tree)
         (setq wg-buffer-workgroup workgroup))
     (dolist (w (cddr window-or-emacs-window-tree))