diff --git a/src/engine/engine-interface.scm b/src/engine/engine-interface.scm
index d68a15c559..b81790a142 100644
--- a/src/engine/engine-interface.scm
+++ b/src/engine/engine-interface.scm
@@ -279,7 +279,7 @@
              (gnc:split-scm-set-account-guid split-scm new-guid)
              (gnc:split-scm-onto-split split-scm new-split book)
              (gnc:split-scm-set-account-guid split-scm old-guid)
-             (xaccTransAppendSplit trans new-split)))
+             (xaccSplitSetParent new-split trans)))
          (gnc:transaction-scm-get-split-scms trans-scm))
         
         ;; close the transaction
diff --git a/src/import-export/qif-import/qif-to-gnc.scm b/src/import-export/qif-import/qif-to-gnc.scm
index 06cfff4f6d..33a493764c 100644
--- a/src/import-export/qif-import/qif-to-gnc.scm
+++ b/src/import-export/qif-import/qif-to-gnc.scm
@@ -481,13 +481,13 @@
                    
                    ;; finally, plug the split into the account 
                    (xaccSplitSetAccount gnc-far-split far-acct)
-                   (xaccTransAppendSplit gnc-xtn gnc-far-split))))
+                   (xaccSplitSetParent gnc-far-split gnc-xtn))))
            splits)
           
           ;; the value of the near split is the total of the far splits.
           (xaccSplitSetValue gnc-near-split near-split-total)
           (xaccSplitSetAmount gnc-near-split near-split-total)
-          (xaccTransAppendSplit gnc-xtn gnc-near-split)
+          (xaccSplitSetParent gnc-near-split gnc-xtn)
           (xaccSplitSetAccount gnc-near-split near-acct))
         
         ;; STOCK TRANSACTIONS: the near/far accounts depend on the
@@ -631,15 +631,15 @@
 
           (if (and qif-near-acct qif-far-acct)
               (begin 
-                (xaccTransAppendSplit gnc-xtn gnc-near-split)
+                (xaccSplitSetParent gnc-near-split gnc-xtn)
                 (xaccSplitSetAccount gnc-near-split near-acct)
                 
-                (xaccTransAppendSplit gnc-xtn gnc-far-split)
+                (xaccSplitSetParent gnc-far-split gnc-xtn)
                 (xaccSplitSetAccount gnc-far-split far-acct)
                 
                 (if commission-split
                     (begin 
-                      (xaccTransAppendSplit gnc-xtn commission-split)
+                      (xaccSplitSetParent commission-split gnc-xtn)
                       (xaccSplitSetAccount commission-split
                                            commission-acct)))))))
     ;; return the modified transaction (though it's ignored).
diff --git a/src/import-export/qif-io-core/qif-bank-xtn-import.scm b/src/import-export/qif-io-core/qif-bank-xtn-import.scm
index 82633c76e3..f65e0b29e7 100644
--- a/src/import-export/qif-io-core/qif-bank-xtn-import.scm
+++ b/src/import-export/qif-io-core/qif-bank-xtn-import.scm
@@ -74,7 +74,7 @@
         (xaccAccountBeginEdit acct)
         (xaccSplitSetAccount split acct)
         (xaccAccountCommitEdit acct)
-        (xaccTransAppendSplit gnc-xtn split)
+        (xaccSplitSetParent split gnc-xtn)
         split))
 
     (xaccTransBeginEdit gnc-xtn)
diff --git a/src/import-export/qif-io-core/qif-invst-xtn-import.scm b/src/import-export/qif-io-core/qif-invst-xtn-import.scm
index a7ee2416d6..24f963862b 100644
--- a/src/import-export/qif-io-core/qif-invst-xtn-import.scm
+++ b/src/import-export/qif-io-core/qif-invst-xtn-import.scm
@@ -172,7 +172,7 @@
         (xaccAccountBeginEdit acct)
         (xaccSplitSetAccount split acct)
         (xaccAccountCommitEdit acct)
-        (xaccTransAppendSplit gnc-xtn split)
+        (xaccSplitSetParent split gnc-xtn)
         split))
 
     (define (lookup-balance acct-info)