From 500f8f78a46ac18c424588ab2f3ac4589a8070c1 Mon Sep 17 00:00:00 2001
From: Jocelyn Fiat <git@djoce.net>
Date: Thu, 16 Jul 2015 20:22:20 +0200
Subject: [PATCH] Fixed implementation of
 CMS_USER_STORAGE_SQL_I.update_user_roles

---
 src/persistence/user/cms_user_storage_sql_i.e | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/persistence/user/cms_user_storage_sql_i.e b/src/persistence/user/cms_user_storage_sql_i.e
index 98121f8..803b83f 100644
--- a/src/persistence/user/cms_user_storage_sql_i.e
+++ b/src/persistence/user/cms_user_storage_sql_i.e
@@ -270,7 +270,7 @@ feature -- Change: user
 
 			sql_begin_transaction
 
-			l_existing_roles:= user_roles_for (a_user)
+			l_existing_roles := user_roles_for (a_user)
 			across
 				l_existing_roles as ic
 			until
@@ -280,7 +280,7 @@ feature -- Change: user
 					l_has_role := False
 					l_roles.start
 				until
-					l_has_role
+					l_has_role or l_roles.after
 				loop
 					if l_roles.item.id = ic.item.id then
 						l_has_role := True