diff --git a/misc-scripts/density_feature/gene_density_calc.pl b/misc-scripts/density_feature/gene_density_calc.pl
index f9ac1c9cc2a60456452184a02e9c1e04d20c354a..b793532fc193e5bdbddc2b22626f36dd2a455f2a 100644
--- a/misc-scripts/density_feature/gene_density_calc.pl
+++ b/misc-scripts/density_feature/gene_density_calc.pl
@@ -7,8 +7,9 @@
 # It will only run on databases with genes ...
 #
 
-# I think the right thing here is too generate densities on the biggest 50-100 toplevel slices ...
-# The website will be happy with about 150 bins I think.
+# I think the right thing here is too generate densities on the longest
+# 125 toplevel slices... The website will be happy with about 150 bins I
+# think.
 
 
 use strict;
@@ -18,8 +19,8 @@ use Bio::EnsEMBL::DensityType;
 use Bio::EnsEMBL::DensityFeature;
 use Getopt::Long;
 
-my $bin_count = 150;
-my $long_slice_count = 100;
+my $bin_count        = 150;
+my $long_slice_count = 125;
 
 
 my ( $host, $user, $pass, $port, $dbname  );
diff --git a/misc-scripts/density_feature/percent_gc_calc.pl b/misc-scripts/density_feature/percent_gc_calc.pl
index 4b1930d848f6b0e555c288bc04e3064ab28c92a5..ae3e59910956cecf0801f3e79d3828e067858151 100644
--- a/misc-scripts/density_feature/percent_gc_calc.pl
+++ b/misc-scripts/density_feature/percent_gc_calc.pl
@@ -36,9 +36,8 @@ my $db = new Bio::EnsEMBL::DBSQL::DBAdaptor(-host => $host,
 					    -dbname => $dbname);
 
 
-my $bin_count = 150;
-my $long_slice_count = 100;
-
+my $bin_count        = 150;
+my $long_slice_count = 125;
 
 #
 # Check wether the script should run on given database
diff --git a/misc-scripts/density_feature/variation_density.pl b/misc-scripts/density_feature/variation_density.pl
index 6e80a3e7445c228200b06a492c5f078d94db45eb..6f89147ec98d134e7dc00a11627c77d003db6021 100644
--- a/misc-scripts/density_feature/variation_density.pl
+++ b/misc-scripts/density_feature/variation_density.pl
@@ -1,6 +1,7 @@
 #
 # calculates the variation density from given core database
-# It finds Variation database by itself using naming convention s/core/variation/
+# It finds Variation database by itself using naming convention
+# s/core/variation/
 #
 #
 
@@ -17,8 +18,8 @@ use Getopt::Long;
 use Data::Dumper;
 $Data::Dumper::Maxdepth = 2;
 
-my $bin_count = 150;
-my $long_slice_count = 100;
+my $bin_count        = 150;
+my $long_slice_count = 125;
 
 my ( $host, $user, $pass, $port, $dbname  );