diff --git a/src/def.h b/src/def.h
index e7df7b6..1d0f29f 100644
--- a/src/def.h
+++ b/src/def.h
@@ -556,6 +556,7 @@ enum ShiftDirection {
 #define EV_READ7                (EV_OFFSET+307)
 #define EV_READ8                (EV_OFFSET+308)
 #define EV_READ9                (EV_OFFSET+309)
+#define EV_READ10               (EV_OFFSET+320)
 
 #define EV_WRITE0               (EV_OFFSET+310)
 #define EV_WRITE1               (EV_OFFSET+311)
diff --git a/src/event.cxx b/src/event.cxx
index 252a33c..7fcb8ce 100644
--- a/src/event.cxx
+++ b/src/event.cxx
@@ -642,7 +642,7 @@ static Phase table[] =
                 {},
             },
             {
-                EV_PHASE_STOP,
+                EV_READ10,
                 0, {1, 40},
                 16, 424,
                 { translate ("Finish") },
@@ -5670,13 +5670,17 @@ CEvent::TreatEventBase (const SDL_Event & event)
       case EV_PHASE_PLAY:
       case EV_PHASE_SETUP:
       case EV_PHASE_SETUPp:
-      case EV_PHASE_READ:
       case EV_PHASE_WRITE:
       case EV_PHASE_WRITEp:
       case EV_PHASE_HELP:
         ChangePhase (EV_PHASE_STOP);
         return true;
 
+      case EV_PHASE_READ:
+        ChangePhase (
+          this->m_pDecor->GetTime () ? EV_PHASE_STOP : EV_PHASE_INFO);
+        return true;
+
       case EV_PHASE_STOP:
         ChangePhase (EV_PHASE_PLAY);
         return true;
@@ -5719,12 +5723,16 @@ CEvent::TreatEventBase (const SDL_Event & event)
         return true;
 
       case EV_PHASE_PLAY:
-      case EV_PHASE_READ:
       case EV_PHASE_WRITE:
       case EV_PHASE_SETUP:
         ChangePhase (EV_PHASE_STOP);
         return true;
 
+      case EV_PHASE_READ:
+        ChangePhase (
+          this->m_pDecor->GetTime () ? EV_PHASE_STOP : EV_PHASE_INFO);
+        return true;
+
       case EV_PHASE_INIT:
       case EV_PHASE_LOST:
       case EV_PHASE_BUILD:
@@ -6206,6 +6214,10 @@ CEvent::TreatEventBase (const SDL_Event & event)
       ChangePhase (EV_PHASE_PLAY); // joue
       break;
 
+    case EV_READ10:
+      ChangePhase (this->m_pDecor->GetTime () ? EV_PHASE_STOP : EV_PHASE_INFO);
+      break;
+
     case EV_WRITE0:
     case EV_WRITE1:
     case EV_WRITE2: