diff --git a/sources/evolution.F90 b/sources/evolution.F90
index 118acdc..10a37c4 100644
--- a/sources/evolution.F90
+++ b/sources/evolution.F90
@@ -640,8 +640,9 @@ module evolution
 
 ! round the time
 !
-    if (dte   <= 0.0d+00) dte = dtn
-    if (dtnext > 0.0d+00) dt  = min(dtn, dte, dtnext)
+    if (error_control .and. dte > 0.0d+00) dtn = min(dtn, dte)
+    if (dtnext > 0.0d+00) dtn = min(dtn, dtnext)
+    dt = dtn
 
 #ifdef PROFILE
 ! stop accounting time for new time step estimation