diff --git a/src/mbase.scm b/src/mbase.scm
index 1c566ce..72f8665 100644
--- a/src/mbase.scm
+++ b/src/mbase.scm
@@ -321,11 +321,16 @@
 	 (values mb rem)
 	 (let* ((row (car dw))
 		(username (car row))
-		(mr (find-member-by-nick mb username)))
+		(mr (find-member-by-nick mb username))
+		(groups (list-ref row 3)))
 	   (if mr
-	       (let ()
+	       (let ((mid (brmember-id mr)))
 		 (loop (cdr dw)
-		       mb
+		       (mbase-update mb
+				     (lambda (mr)
+				       (eq? (brmember-id mr) mid))
+				     (lambda (mr)
+				       (brmember-set mr #:dokuwiki groups)))
 		       rem))
 	       (loop (cdr dw)
 		     mb