diff --git a/ChangeLog b/ChangeLog
index 3b5418259..0a2d675fb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2004-12-16  Alexandre Duret-Lutz  <adl@src.lip6.fr>
 
+	* src/tgbaalgos/reducerun.cc (reduce_run): Do not call erase() after
+	splice(), splice() already remove the elements.
+	* src/tgbaalgos/gtec/ce.cc (couvreur99_check_result::accepting_run):
+	Likewise.
+
 	* src/tgbatest/randtgba.cc: Add option -O, so we can profile each
 	emptiness-check on its own.
 
diff --git a/src/tgbaalgos/gtec/ce.cc b/src/tgbaalgos/gtec/ce.cc
index b231e51fb..36749ac46 100644
--- a/src/tgbaalgos/gtec/ce.cc
+++ b/src/tgbaalgos/gtec/ce.cc
@@ -21,6 +21,7 @@
 
 #include "ce.hh"
 #include "tgbaalgos/bfssteps.hh"
+#include "misc/hash.hh"
 
 namespace spot
 {
@@ -128,7 +129,6 @@ namespace spot
     // Now shift the cycle so it starts on cycle_entry_point.
     run_->cycle.splice(run_->cycle.end(), run_->cycle,
 		       run_->cycle.begin(), cycle_ep_it);
-    run_->cycle.erase(run_->cycle.begin(), cycle_ep_it);
 
     return run_;
   }
diff --git a/src/tgbaalgos/reducerun.cc b/src/tgbaalgos/reducerun.cc
index acd446670..9ab94c267 100644
--- a/src/tgbaalgos/reducerun.cc
+++ b/src/tgbaalgos/reducerun.cc
@@ -182,7 +182,6 @@ namespace spot
     // Now shift the cycle so it starts on cycle_entry_point.
     res->cycle.splice(res->cycle.end(), res->cycle,
 		      res->cycle.begin(), cycle_ep_it);
-    res->cycle.erase(res->cycle.begin(), cycle_ep_it);
 
     return res;
   }