Index: svn/Merger.cls.xml
===================================================================
diff -u -r1792 -r1793
--- svn/Merger.cls.xml	(.../Merger.cls.xml)	(revision 1792)
+++ svn/Merger.cls.xml	(.../Merger.cls.xml)	(revision 1793)
@@ -33,7 +33,7 @@
 	set Iterator = ##class(TECH.ListIterator).%New(##class(TECH.ListUtils).CompositeRangeStringToList(RevisionRange))
 	while Iterator.HasNext() {
 		#dim Revision As %String = Iterator.Next()
-		do ..Console.Write($$$CRLF_Revision)		
+		do ..Console.Write($$$CRLF_Revision_"... ")		
 		do ..ExecMerge(Revision,From,To)	
 	}
 	
@@ -63,6 +63,7 @@
 
 <Method name="ExecMerge">
 <FormalSpec>Revision:%String,From:%String,To:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	do:$$$Not(..AbortMerge()) ..svnStatus(To)
 	do:$$$Not(..AbortMerge()) ..svnUpdate(To)
@@ -86,7 +87,7 @@
 <FormalSpec>To:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	do ..Console.Write("Getting Status")
+	do ..Console.Write("Getting Status"_"... ")
 	set svnCommand = ##class(svn.Command).%New("")
 	set svnCommand.LocalWorkspace = "E:\svn\CacheAdminA\"_To
 	set svnCommand.SubCommand = "status"
@@ -104,7 +105,7 @@
 <FormalSpec>Revision:%String,From:%String,To:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	do ..Console.Write("Commit")
+	do ..Console.Write("Commit"_"... ")
 	set svnCommand = ##class(svn.Command).%New("")
 	set svnCommand.LocalWorkspace = "E:\svn\CacheAdminA\"_To
 	set svnCommand.SubCommand = "commit"
@@ -119,7 +120,7 @@
 <FormalSpec>Revision:%String,From:%String,To:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	do ..Console.Write("Merge")
+	do ..Console.Write("Merge"_"... ")
 	set svnCommand = ##class(svn.Command).%New("")
 	set svnCommand.LocalWorkspace = "E:\svn\CacheAdminA\"_To
 	set svnCommand.Repository = "http://subversion:81/svn/CacheAdminA/trunk2010"
@@ -132,8 +133,9 @@
 
 <Method name="svnUpdate">
 <FormalSpec>To:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	do ..Console.Write("Update")
+	do ..Console.Write("Update"_"... ")
 	set svnCommand = ##class(svn.Command).%New("")
 	set svnCommand.LocalWorkspace = "E:\svn\CacheAdminA\"_To
 	set svnCommand.SubCommand = "update"
@@ -143,13 +145,15 @@
 
 <Method name="BuildMergeDescription">
 <FormalSpec>Revision:%String,From:%String</FormalSpec>
+<Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit "Merged revision "_ Revision _ " from " _ From _ ":" _ ..GetCommitDescription(Revision)
 ]]></Implementation>
 </Method>
 
 <Method name="GetCommitDescription">
 <FormalSpec>Revision:%String</FormalSpec>
+<Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	set svnCommand = ##class(svn.Command).%New($listbuild("E:\svn\CacheAdminA\"))
@@ -171,6 +175,7 @@
 </Method>
 
 <Method name="GetUsername">
+<Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit $$$SVNGlobal("SourceControl",..#PRODUCT, "Username")
 ]]></Implementation>