diff --git a/pandora_server/ChangeLog b/pandora_server/ChangeLog
index 9df433e2ee..4e4daa5dbb 100644
--- a/pandora_server/ChangeLog
+++ b/pandora_server/ChangeLog
@@ -1,3 +1,9 @@
+2013-03-04  Sergio Martin <sergio.martin@artica.es>
+
+	* lib/PandoraFMS/Core.pm
+	lib/PandoraFMS/DataServer.pm: Clean code and fix some
+	forgotten changes in last GIS code
+
 2013-03-04  Sergio Martin <sergio.martin@artica.es>
 
 	* util/pandora_manage.pl: Update fired alert counts when 
diff --git a/pandora_server/lib/PandoraFMS/Core.pm b/pandora_server/lib/PandoraFMS/Core.pm
index cfbc48b21a..e56c10d463 100644
--- a/pandora_server/lib/PandoraFMS/Core.pm
+++ b/pandora_server/lib/PandoraFMS/Core.pm
@@ -180,6 +180,7 @@ our @EXPORT = qw(
 	pandora_update_agent
 	pandora_update_agent_address
 	pandora_update_config_token
+	pandora_update_gis_data
 	pandora_update_module_on_error
 	pandora_update_module_from_hash
 	pandora_update_server
@@ -1914,7 +1915,7 @@ Update agent GIS information.
 
 =cut
 ##########################################################################
-sub pandora_update_gis_data ($$$$$$$$) {
+sub pandora_update_gis_data ($$$$$$$$$) {
 	my ($pa_config, $dbh, $agent_id, $agent_name, $longitude, $latitude, $altitude, $position_description, $timestamp) = @_;
 
 	logger($pa_config, "Updating GIS data for agent $agent_name (long: $longitude lat: $latitude alt: $altitude)", 10);
diff --git a/pandora_server/lib/PandoraFMS/DataServer.pm b/pandora_server/lib/PandoraFMS/DataServer.pm
index f8e7a5a601..de7126805c 100644
--- a/pandora_server/lib/PandoraFMS/DataServer.pm
+++ b/pandora_server/lib/PandoraFMS/DataServer.pm
@@ -111,7 +111,7 @@ sub data_producer ($) {
 
 		push (@files, $file);
 		$file_count++;
-print "QUEUING $file\n";
+		
 		# Do not queue more than max_queue_files files
 		if ($file_count >= $pa_config->{"max_queue_files"}) {
 			last;