Index: BL/Legacy/cA400.cls.xml
===================================================================
diff -u -r29059 -r31867
--- BL/Legacy/cA400.cls.xml	(.../cA400.cls.xml)	(revision 29059)
+++ BL/Legacy/cA400.cls.xml	(.../cA400.cls.xml)	(revision 31867)
@@ -17,7 +17,7 @@
 	Set Info = Info_$c(13,10,13,10)_Exceptie.GeefStack()
 	Set:$L(Info)>32000 Info=$E(Info,1,32000)_" <AFGEKAPT>"
 	#dim LogLevel As %String = ##class(TECH.Error.impl.ErrorHandler).GeefLogLevel(Exceptie)
-	Do ##class(vhLib.Logger).%New("ADMIN-ERROR").AddToLog(LogLevel, Error, Info , 1)
+	Do ##class(vhLib.Logger).%New().AddToLog(LogLevel, Error, Info , 1)
 ]]></Implementation>
 </Method>