diff --git a/installer/data/mysql/atomicupdate/bug_6759.perl b/installer/data/mysql/atomicupdate/bug_6759.perl
new file mode 100644
index 0000000000..afd417e8d1
--- /dev/null
+++ b/installer/data/mysql/atomicupdate/bug_6759.perl
@@ -0,0 +1,15 @@
+$DBversion = 'XXX';    # will be replaced by the RM
+if ( CheckVersion($DBversion) ) {
+
+    $dbh->do(qq{
+        UPDATE
+          accountlines
+        SET
+          accounttype = 'ACCOUNT'
+        WHERE
+          accounttype = 'A';
+    });
+
+    SetVersion($DBversion);
+    print "Upgrade to $DBversion done (Bug 11573 - Fix accounttypes for 'A')\n";
+}