diff --git a/pandora_server/ChangeLog b/pandora_server/ChangeLog
index f7e47d5314..699469629d 100644
--- a/pandora_server/ChangeLog
+++ b/pandora_server/ChangeLog
@@ -1,3 +1,8 @@
+2014-08-25 Vanessa Gil <vanessa.gil@artica.es>
+	
+	* util/pandora_db.pl: Fixed problem
+	deleting events. Ticket #979.
+
 2014-08-22  Koichiro Kikuchi <koichiro@rworks.jp>
 
 	* FreeBSD/pandora_server: Fixed bug fail to start pandora_server with
diff --git a/pandora_server/util/pandora_db.pl b/pandora_server/util/pandora_db.pl
index 5b37d77aef..e53180650c 100755
--- a/pandora_server/util/pandora_db.pl
+++ b/pandora_server/util/pandora_db.pl
@@ -179,6 +179,7 @@ sub pandora_purgedb ($$) {
 			my @events = get_db_rows ($dbh, 'SELECT * FROM tmetaconsole_event WHERE estado = 0 AND utimestamp < ?', $event_limit);
 			foreach my $event (@events) {
 				db_process_insert($dbh, 'id_evento', 'tmetaconsole_event_history', $event);
+				db_do($dbh, "DELETE FROM tmetaconsole_event WHERE id_evento =".$event->{'id_evento'});
 			}
 		}