Index: BL/Sys/FOP/DocBase.cls.xml
===================================================================
diff -u -r41347 -r48046
--- BL/Sys/FOP/DocBase.cls.xml	(.../DocBase.cls.xml)	(revision 41347)
+++ BL/Sys/FOP/DocBase.cls.xml	(.../DocBase.cls.xml)	(revision 48046)
@@ -475,6 +475,7 @@
 	;New From,lbTo,Subj,Body,scMail
 	Set Body=$$rdwErrorMailBody(sc)
 	Do ##class(Sys.FOP.Logging).GetMailFields(.From,.lbTo,.Subj,"Error DocBaseWS")
+ 	Do ##class(vhLib.Logger).%New("").Error("Run DocBaseWS",Body,0)
 	Set scMail=$$SendMiniMailForced^vhLib.Mail(From,lbTo,Subj,Body,,,,,)
 	Quit
 rdwErrorMailBody(Error)