diff --git a/src/brmember.scm b/src/brmember.scm
index 8518237..9c478ac 100644
--- a/src/brmember.scm
+++ b/src/brmember.scm
@@ -297,7 +297,7 @@
 			(brmember-existing? mr))
 		   (and (not (member "member" groups))
 			(not (brmember-existing? mr)))))
-	     #f))))
+	     (not (brmember-existing? mr))))))
 
  ;; True if member record is not OK
  (define (brmember-has-problems? mr)