Index: svn/Command.cls.xml
===================================================================
diff -u -r1731 -r1775
--- svn/Command.cls.xml	(.../Command.cls.xml)	(revision 1731)
+++ svn/Command.cls.xml	(.../Command.cls.xml)	(revision 1775)
@@ -35,6 +35,12 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
+<Property name="Message">
+<Type>%String</Type>
+<Parameter name="MAXLEN" value="2500"/>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
 <Property name="Revision">
 <Description>
 revision number, leave empty for LATEST</Description>
@@ -161,7 +167,8 @@
 	
 	// +DK 2.16
 	// this is windows only commands concatenation
-	f ii=0,1 set tCmd(ii)=tCmd(ii)_""""_..Command
+	f ii=0,1 set tCmd(ii)=tCmd(ii)_""""_ "cd /d "_..LocalWorkspace _ " & "_..Command
+	
 	// -DK 2.16
 	// global options
 	for ii=0,1 {
@@ -182,6 +189,8 @@
 	
 	// subcommand
 	for ii=0,1 set:(..SubCommand'="") tCmd(ii)=tCmd(ii)_" "_..SubCommand
+	
+	for ii=0,1 set:(..SubCommand="commit") tCmd(ii)=tCmd(ii)_" -m """_..Message_""""
 
 	// subcommand options
 	for ii=0,1 {
@@ -194,7 +203,7 @@
 	// repository
 	for ii=0,1 set:(..Repository'="") tCmd(ii)=tCmd(ii)_" "_..Repository
 	// revision #
-	for ii=0,1 if ..Revision'="" set tCmd(ii)=$case(..SubCommand,"checkout":tCmd(ii)_"@"_..Revision,:tCmd(ii)_" -r"_..Revision)
+	for ii=0,1 if ..Revision'="" set tCmd(ii)=$case(..SubCommand,"merge":tCmd(ii)_" -c"_..Revision,"checkout":tCmd(ii)_"@"_..Revision,:tCmd(ii)_" -r"_..Revision)
 	
 	// file
 	set File = ..File