diff --git a/installer/data/mysql/atomicupdate/bug_22518.perl b/installer/data/mysql/atomicupdate/bug_22518.perl
new file mode 100644
index 0000000000..4d975d9b62
--- /dev/null
+++ b/installer/data/mysql/atomicupdate/bug_22518.perl
@@ -0,0 +1,16 @@
+$DBversion = 'XXX';    # will be replaced by the RM
+if ( CheckVersion($DBversion) ) {
+
+        $dbh->do(
+            qq{
+            UPDATE `accountlines`
+            SET
+              `accounttype` = 'FU'
+            WHERE
+              `accounttype` = 'O'
+          }
+        );
+
+    SetVersion($DBversion);
+    print "Upgrade to $DBversion done (Bug 22518 - Fix accounttype 'O' to 'FU')\n";
+}