diff --git a/tests/integration-tests/tests-expected-to-fail b/tests/integration-tests/tests-expected-to-fail index 25c0b39..44e01d4 100644 --- a/tests/integration-tests/tests-expected-to-fail +++ b/tests/integration-tests/tests-expected-to-fail @@ -5,4 +5,3 @@ issue-0993 issue-1004 issue-1005 issue-1006 -test-basic-iresize diff --git a/tile-group.lisp b/tile-group.lisp index 688db50..9e8b08a 100644 --- a/tile-group.lisp +++ b/tile-group.lisp @@ -358,7 +358,7 @@ (+ (frame-y frame) (frame-height frame)))) (defmethod frame-head ((group tile-group) frame) - (find-if (lambda (head) (find frame (flatten (tile-group-frame-head group head)))) + (find-if (lambda (head) (or (eq head frame) (find frame (flatten (tile-group-frame-head group head))))) (group-heads group))) (defun project-x (head x)