Index: APPS/PM/Maatwerk/MaatwerkService.cls.xml
===================================================================
diff -u -r64366 -r64395
--- APPS/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 64366)
+++ APPS/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 64395)
@@ -152,7 +152,7 @@
 <Implementation><![CDATA[
 	#dim String As %String = ""
 	
-	If $$$HasLength(Problemen) {
+	If (Problemen.Count() > 0) {
 		#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Problemen)
 		
 		While (Iterator.HasNext()) {