Index: TECH/Error.inc.rou
===================================================================
diff -u -r334 -r338
--- TECH/Error.inc.rou	(.../Error.inc.rou)	(revision 334)
+++ TECH/Error.inc.rou	(.../Error.inc.rou)	(revision 338)
@@ -40,7 +40,7 @@
 #define chkIsObject(%obj)                        If '$isobject(%obj) set Exception = ##class(TECH.Exceptions.ObjectExpectedException).%New("%obj is geen object") do ##class(TECH.ExceptionHandler).Throw(Exception)
 #define chkValidateObject(%obj)                  $$$chkIsObject(%obj) Set sc=%obj.%ValidateObject()  If $$$ISERR(sc) set Exception = ##class(TECH.Exceptions.StatusException).%New($$$errObjectValidationFailed,"%p is niet geldig",sc) do ##class(TECH.ExceptionHandler).Throw(Exception)
 #define chkValidateDataType(%dt,%p)				 if '##class(%dt).IsValid(%p) $$$ThrowError($$$errInvalidInput,%p)	
-#define chkMaxLength(%var,%maxlength)			 if $length(%var) > %maxlength $$$ThrowError($$$errInvalidInput,%var_": "_$length(%var)_">"_%maxlength)	
+#define chkMaxLength(%var,%maxlength)			 if $length(%var) > %maxlength set Exception = ##class(TECH.Exceptions.InvalidInputException).%New(%var_": "_$length(%var)_">"_%maxlength) do ##class(TECH.ExceptionHandler).Throw(Exception)
  
 #define CreateStdErrorObject					 set %vhLastError = ##class(TECH.Error.ErrorObject).%New() 
 #define AddToErrorObject(%String)				 do %vhLastError.Info.Insert(%String)