Index: vhLib/WebServiceLogger/impl/VhLibLogger.cls.xml
===================================================================
diff -u -r373 -r468
--- vhLib/WebServiceLogger/impl/VhLibLogger.cls.xml	(.../VhLibLogger.cls.xml)	(revision 373)
+++ vhLib/WebServiceLogger/impl/VhLibLogger.cls.xml	(.../VhLibLogger.cls.xml)	(revision 468)
@@ -30,13 +30,24 @@
 	#dim Debug As %String = ""
 	Try {		
 		Do Stream.Rewind()	
-		While 'Stream.AtEnd{
-			Set Debug = ##class(TECH.StringUtils).Append(Debug,Stream.ReadLine(),$C(13,10))
+		#dim MaximumLengteBereikt As %Boolean = 0
+		While ('Stream.AtEnd && 'MaximumLengteBereikt){
+			Try {
+				Set Debug = ##class(TECH.StringUtils).Append(Debug,Stream.ReadLine(),$C(13,10))
+			}Catch E{
+				#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+				If Exception.GeefOmschrijving()["MAXSTRING" {
+					Do ##class(TECH.ExceptionHandler).Rethrow()
+				}Else{
+					Set MaximumLengteBereikt = 1
+					Set Debug = $E(Debug,$L(Debug-22),$L(Debug))_" ..[deel ontbreekt].."
+				}
+			}
 		}
 		Do Stream.Rewind()	
 	}Catch E
 	{
-		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Exception = ##class(TECH.ExceptionHandler).Catch()
 		Set Debug = Exception.GeefOmschrijving()
 		Do ##class(vhLib.Logger).LogExceptie(Exception)
 		Try{