Index: vhUnitTest/APPS/VisiDot/impl/BuildQueue.cls.xml
===================================================================
diff -u -r1791 -r1812
--- vhUnitTest/APPS/VisiDot/impl/BuildQueue.cls.xml	(.../BuildQueue.cls.xml)	(revision 1791)
+++ vhUnitTest/APPS/VisiDot/impl/BuildQueue.cls.xml	(.../BuildQueue.cls.xml)	(revision 1812)
@@ -110,7 +110,7 @@
 		Set oQ.BatchID=..BatchID
 		Set oQ.Status=$$$tsWachtend
 		Set oQ.WPVerpak=##class(BL.PPS.TBX.WPVerpak).CreateVHoss(..KLNr,oQ.TOENr,oQ.TLUNr,PRNr,1,$P(VHossID,"."),$P(VHossID,".",2),..SlotLabel,..SequenceNr)
-		Set Status=oQ.%Save() D:$$$ISERR(Status) WE^vhDBG(Status,"PPSTBX AddBatch")
+		Set Status=oQ.%Save() D:$$$ISERR(Status) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).SaveFailed(),"Fout save QueueElement:"_$$ParseStatus^vhLib(Status)))
 		;w $$ParseStatus^vhLib(Status)
 		;Set ..VHoss($P(VHossID,"."),$P(VHossID,".",2),oQ.%Id())=""
 	}