- (let ((names (getf syncgroups :names))
- (members (split-string (getf syncgroups :members) ",")))
+ (let ((names (getf syncgroups :sync_member_names))
+ ;; new server version has sync_members and sync_member_names
+ (members (split-string (getf syncgroups :sync_members) ",")))