Index: TECH/Mail.cls.xml
===================================================================
diff -u -r1298 -r1303
--- TECH/Mail.cls.xml	(.../Mail.cls.xml)	(revision 1298)
+++ TECH/Mail.cls.xml	(.../Mail.cls.xml)	(revision 1303)
@@ -26,6 +26,8 @@
 	/// Geen spaties toegestaan
 	Set IsValid = '(Mail?.(.E1" ".E))
 	
+	Set:($Length(Mail,"@")'=2) IsValid = 0	
+	
 	Set LocalPart = $Piece(Mail,"@")
 	Set DomainPart = $Piece(Mail,"@",2)