Index: ActiviteitenOpvolging/ActiviteitenOpvolging/domain/managers/implementations/EmployeeManager.vb
===================================================================
diff -u -r1721 -r1723
--- ActiviteitenOpvolging/ActiviteitenOpvolging/domain/managers/implementations/EmployeeManager.vb	(.../EmployeeManager.vb)	(revision 1721)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/domain/managers/implementations/EmployeeManager.vb	(.../EmployeeManager.vb)	(revision 1723)
@@ -17,7 +17,7 @@
             'Select the employees from the collection of all employees, which are not selected yet.
             'The employees are compared on their initials in lowercase.
             Return New HashSet(Of IEmployee)(_employees.Where(Function(employee) _
-                                                                 Not _selectedEmployeesDictionary.Any(Function(selectedEmployee) _
+                                                                 Not _selectedEmployeesDictionary.Values.Any(Function(selectedEmployee) _
                                                                                                employee.Equals(selectedEmployee))))
         End Get
     End Property