Index: src/natools-time_statistics-generic_timers.adb
==================================================================
--- src/natools-time_statistics-generic_timers.adb
+++ src/natools-time_statistics-generic_timers.adb
@@ -27,11 +27,11 @@
    end Start;
 
 
    not overriding procedure Stop (Timer : in out Manual_Timer) is
    begin
-      Timer.Backend.Add (Timer.Start_Time - Now);
+      Timer.Backend.Add (Now - Timer.Start_Time);
       Timer.Running := False;
    end Stop;
 
 
    not overriding procedure Cancel (Timer : in out Manual_Timer) is
@@ -59,11 +59,11 @@
 
 
    overriding procedure Finalize (Object : in out Auto_Timer) is
    begin
       if not Object.Reported then
-         Object.Backend.Add (Object.Start_Time - Now);
+         Object.Backend.Add (Now - Object.Start_Time);
          Object.Reported := True;
       end if;
    end Finalize;
 
 end Natools.Time_Statistics.Generic_Timers;