diff --git a/installer/data/mysql/atomicupdate/bug_22518.perl b/installer/data/mysql/atomicupdate/bug_22518.perl
index 4d975d9b62..e0b924c988 100644
--- a/installer/data/mysql/atomicupdate/bug_22518.perl
+++ b/installer/data/mysql/atomicupdate/bug_22518.perl
@@ -1,16 +1,16 @@
 $DBversion = 'XXX';    # will be replaced by the RM
 if ( CheckVersion($DBversion) ) {
 
-        $dbh->do(
-            qq{
-            UPDATE `accountlines`
-            SET
-              `accounttype` = 'FU'
-            WHERE
-              `accounttype` = 'O'
-          }
-        );
+    my $rows = $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";
+    printf "Upgrade to $DBversion done (Bug 22518 - Fix accounttype 'O' to 'FU' - %d updated)\n", $rows;
 }