Index: svn/Repository.cls.xml
===================================================================
diff -u -r1753 -r1756
--- svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1753)
+++ svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1756)
@@ -169,6 +169,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="SVNCommit">
+<FormalSpec>InternalName:%String,Message:%String,Username:%String,Password</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set tCmd=##class(svn.Command).%New($lb(..WorkspacePath(..Branch)))
+	set tCmd.File=..ExternalName(InternalName)
+	set tCmd.SubCommand = "commit"
+	do tCmd.Options.SetAt(Message,"-m")
+	do tCmd.Options.SetAt(Username,"--username")
+	do tCmd.Options.SetAt(Password,"--password")
+	do tCmd.Execute()
+]]></Implementation>
+</Method>
+
 <Method name="OnSVNDelete">
 <FormalSpec>InternalName:%String</FormalSpec>
 <Implementation><![CDATA[