duplicateBranch copies source and then sets parent to the destination

docs/changelog/6.x.x.txt

@@ -40,6 +40,9 @@
  - [ 1433525 ] 6.9: Compilation errors 
  - base36 removed from Utility.t because it no longer exists in WebGUI::Utility.pm
 
+6.8.7
+ - fix [ 1437186 ] 6.8.7 deploy DataForm package does not copy fields
+
 6.8.7
  - fix [ 1431098 ] op=becomeUser can become non-existent userIds
  - fix [ 1431944 ] 6.8.6 DataForm moving fields

lib/WebGUI/AssetBranch.pm

@@ -51,7 +51,8 @@ The asset to duplicate. Defaults to self.
 sub duplicateBranch {
 	my $self = shift;
 	my $assetToDuplicate = shift || $self;
-	my $newAsset = $self->duplicate($assetToDuplicate);
+	my $newAsset = $assetToDuplicate->duplicate();
+	$newAsset->setParent($self);
 	my $contentPositions;
 	$contentPositions = $assetToDuplicate->get("contentPositions");
 	foreach my $child (@{$assetToDuplicate->getLineage(["children"],{returnObjects=>1})}) {