Index: TECH/Mail.cls.xml
===================================================================
diff -u -r1303 -r1304
--- TECH/Mail.cls.xml	(.../Mail.cls.xml)	(revision 1303)
+++ TECH/Mail.cls.xml	(.../Mail.cls.xml)	(revision 1304)
@@ -46,7 +46,7 @@
 			
 		/// Check DomainPart
 			
-			Set:IsValid IsValid = DomainPart?.(1(.A.N).(1".",1"-")1(.A,.N))
+			Set:IsValid IsValid = DomainPart?1.(1(.A.N)1(1".",1"-"))1(.A)
 			
 			Set:IsValid IsValid = ..CheckPunten(DomainPart)