Fix finding current head on empty floating group

If there was no current window on a floating group the group crashed because GROUP-CURRENT-WINDOW returned NIL.