Index: Tools/Wlip.cls.xml
===================================================================
diff -u -r2124 -r2144
--- Tools/Wlip.cls.xml	(.../Wlip.cls.xml)	(revision 2124)
+++ Tools/Wlip.cls.xml	(.../Wlip.cls.xml)	(revision 2144)
@@ -123,12 +123,16 @@
 </Method>
 
 <Method name="DataTransferObject">
-<FormalSpec>DataTransferObject:TECH.RegisteredObject,Break:%Boolean=$$$False</FormalSpec>
+<FormalSpec>DataTransferObject:TECH.RegisteredObject,Title:TECH.String="",Break:%Boolean=$$$False</FormalSpec>
 <Implementation><![CDATA[
-	Do ..Wlip(DataTransferObject,3)
-	Set Writer = ##class(Tools.Wlip.Writer).%New()
-	Set Dumper = ##class(Tools.ObjectDumper.Dumper).%New(DataTransferObject,$$$True,Writer)
-	Do Dumper.Dump()
+	If $IsObject(DataTransferObject) {
+		Do ..Wlip(Title_": "_DataTransferObject,3)
+		Set Writer = ##class(Tools.Wlip.Writer).%New()
+		Set Dumper = ##class(Tools.ObjectDumper.Dumper).%New(DataTransferObject,$$$True,Writer)
+		Do Dumper.Dump()
+	} Else {
+		Do ..Wlip(Title_": Object is NULL",3)
+	}
 	Break:Break
 ]]></Implementation>
 </Method>