Index: Tools/Wlip.cls.xml
===================================================================
diff -u -r1752 -r1754
--- Tools/Wlip.cls.xml	(.../Wlip.cls.xml)	(revision 1752)
+++ Tools/Wlip.cls.xml	(.../Wlip.cls.xml)	(revision 1754)
@@ -28,6 +28,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Properties">
+<FormalSpec>Properties...:%CacheString</FormalSpec>
+<Implementation><![CDATA[
+	#dim String As TECH.String = ""
+	Set PropertiesIterator = ##class(TECH.ArrayOneDimIterator).%New(.Properties)
+	While PropertiesIterator.HasNext() {
+		#dim Property As %CacheString = PropertiesIterator.Next()
+		If String = "" {
+			Set String = PropertiesIterator.Key()_": "_Property
+		} Else {
+			Set String = String_", "_PropertiesIterator.Key()_": "_Property
+		}
+	}
+	Do ..Wlip(String,3,1,1)
+]]></Implementation>
+</Method>
+
 <Method name="Stream">
 <FormalSpec>Stream:%Stream,Break:%Boolean=$$$False</FormalSpec>
 <Implementation><![CDATA[