Index: svn/StudioHook.cls.xml
===================================================================
diff -u -r1537 -r1538
--- svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1537)
+++ svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1538)
@@ -92,6 +92,7 @@
 <Menu Name = "Subversion" Type="0">
 <MenuItem Name="GetLatest" />
 <MenuItem Name="Reload File" />
+<MenuItem Name="Synchronize Changes" />
 <MenuItem Name="Synchronize All" />
 <MenuItem Separator="1" Name="----------------------------------"/> 
 <MenuItem Name="Settings"/>
@@ -205,6 +206,7 @@
 	} elseif tMenu="status" {
 	    do ..SubversionStatus(.InternalName,.Action,.Target,.Msg,.Reload)
 	} elseif tMenu="synchronize" {
+		if tMenu(2)[ "changes" do ..SubversionSynchronizeChanges(.InternalName,.Action,.Target,.Msg,.Reload)
 		if tMenu(2)[ "all" do ..SubversionSynchronizeAll(.InternalName,.Action,.Target,.Msg,.Reload)
 	} elseif tMenu="reload" {
 		if $length(InternalName) {
@@ -358,6 +360,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="SubversionSynchronizeChanges">
+<FormalSpec><![CDATA[&InternalName:%String,&Action:%String,&Target:%String,&Msg:%String,&Reload:%Boolean]]></FormalSpec>
+<Implementation><![CDATA[
+	set Action=0
+	set ..Cmd=0
+	write "Synchronizatie van de wijzigingen wordt uitgevoerd ",!
+	do ##class(svn.Helper).%New().ShortSync()
+]]></Implementation>
+</Method>
+
 <Method name="SubversionSynchronizeAll">
 <FormalSpec><![CDATA[&InternalName:%String,&Action:%String,&Target:%String,&Msg:%String,&Reload:%Boolean]]></FormalSpec>
 <Implementation><![CDATA[
Index: svn/Helper.cls.xml
===================================================================
diff -u -r1531 -r1538
--- svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1531)
+++ svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1538)
@@ -1699,6 +1699,37 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="ShortSync">
+<Implementation><![CDATA[
+	set svnCommand = ##class(svn.Command).%New($listbuild(..GetLocalWorkspacePathWithBranch()))
+	set svnCommand.SubCommand="status"
+	set svnCommand.File = ..GetLocalWorkspacePathWithBranch()
+	
+	do svnCommand.Execute()
+
+	set listExternalNames = ##class(%ListOfDataTypes).%New()
+	
+	set itResults = ##class(TECH.ListIterator).%New(svnCommand.Results)
+	while itResults.HasNext() {
+		#dim svnInfo As svn.CommandResult = itResults.Next()
+		#dim ExternalName As %String = svnInfo.ExternalName
+		if $length(ExternalName)  {
+			write ExternalName,!
+			do listExternalNames.Insert(ExternalName)
+		}
+	}
+	
+	if listExternalNames.Size > 0 {
+		set itExternalNames = ##class(TECH.ListIterator).%New(listExternalNames)
+		while itExternalNames.HasNext() {
+			set ExternalName = itExternalNames.Next()
+			do ..SVNImport(ExternalName)
+		}
+	do ..CompileImportedSourceCode()
+	}
+]]></Implementation>
+</Method>
 </Class>