diff --git a/pae2xml.pl b/pae2xml.pl
index 83818e8ad62522e6f35270374588564ee0bb49c9..6345108bb164dd58f12867d9341d501f756dcadf 100755
--- a/pae2xml.pl
+++ b/pae2xml.pl
@@ -494,7 +494,12 @@ sub parse_note {
 ';
   }
 
+  $tienotation = "";
   if ($tie eq "+") {
+    if ($TIE) {
+      $tienotation = "					<tied type=\"stop\"/>\n";
+    }
+    $tienotation .= "					<tied type=\"start\"/>\n";
     if (!$TIE) {
       $TIE = 1;
       print OUT '				<tie type="start"/>
@@ -504,23 +509,29 @@ sub parse_note {
     if ($TIE) {
       print OUT '				<tie type="stop"/>
 ';
+      $tienotation = "					<tied type=\"stop\"/>\n";
       $TIE = 0;
     }
   }
 
   print OUT $addition;
 
-  my $notationbracket = $fermata || ($trill eq "t") || ($notation ne "");
+  my $notationbracket = $fermata || $tienotation || ($trill eq "t") || ($notation ne "");
   if ($notationbracket) {
     print OUT "				<notations>\n";
   }
-  if ($fermata) { print OUT '
+  if ($tienotation) {
+    print OUT $tienotation;
+  }
+  if ($fermata) {
+    print OUT '
 					<fermata type="upright"/>'."\n"; }
-  if ($trill eq "t") { print OUT '					<ornaments>
+  if ($trill eq "t") {
+    print OUT '					<ornaments>
 						<trill-mark/>
 					</ornaments>
 ';
-		     }
+  }
   if ($notation ne "") {
     print OUT "                         $notation\n";
   }
diff --git a/sample_files/Ties.pae b/sample_files/Ties.pae
new file mode 100644
index 0000000000000000000000000000000000000000..a0ce0b854c84b1f6b3cefb7bc4fbfd86e5201c46
--- /dev/null
+++ b/sample_files/Ties.pae
@@ -0,0 +1,7 @@
+Test Composer
+Test case for Ties
+1.1.1: S Ties
+plain&easy: %G-2@c$bB� '4C+C+CD/8DD+DC2A/
+
+Test Library
+00000000
\ No newline at end of file