diff --git a/src/disc/disc_new_zone_radii.c b/src/disc/disc_new_zone_radii.c
index 27d2730674e8ab62bb1f95e5243956dca39f6d91..c6e000d10848029774659e6673af83063d7f63b2 100644
--- a/src/disc/disc_new_zone_radii.c
+++ b/src/disc/disc_new_zone_radii.c
@@ -115,7 +115,6 @@ Boolean disc_new_zone_radii(struct disc_t * const disc)
      */
     while(zones_remaining > 0)
     {
-
         /*
          * Find the hottest valid zone at this radius.
          *
diff --git a/src/perl/scripts2/cbdiscs.pl b/src/perl/scripts2/cbdiscs.pl
index d19779a4307410a11f88673719b0987a5b8a94e9..1dd1230bc5ecb74956f206bd0ab736586b24195d 100755
--- a/src/perl/scripts2/cbdiscs.pl
+++ b/src/perl/scripts2/cbdiscs.pl
@@ -43,7 +43,7 @@ use threads::shared;
 my $lockvar : shared;
 
 # number of computational threads to launch
-my $nthreads = ("@ARGV"=~/nthreads=(\d+)/)[0] // 1;#rob_misc::ncpus();
+my $nthreads = ("@ARGV"=~/nthreads=(\d+)/)[0] // rob_misc::ncpus();
 
 # make a new stellar population
 my $population = binary_grid2->new(
@@ -352,7 +352,7 @@ sub parse_data
         # subsequent calls to tbse_line contain
         # (references to) arrays of data 
         my $la = $population->tbse_line();
-
+        
         # first element is the "header" line
         my $header = shift @$la;
         
@@ -529,9 +529,9 @@ sub parse_data
                         $lifetime,
                         $final_eccentricity,
                         $p;
-
-                        print {$initparamspace_fp} $s;
-                        #print $s;
+                    
+                    print {$initparamspace_fp} $s;
+                    #print $s;
                 }
             }
             elsif($header eq 'DISC_START')