Index: branches/eam_branches/ipp-20140610/ippScripts/scripts/sc_prepare_stack.pl
===================================================================
--- branches/eam_branches/ipp-20140610/ippScripts/scripts/sc_prepare_stack.pl	(revision 36923)
+++ branches/eam_branches/ipp-20140610/ippScripts/scripts/sc_prepare_stack.pl	(revision 36928)
@@ -182,5 +182,5 @@
     $ppstack_command    .= " -R PPSTACK.UNCONV.VARIANCE FITS.TYPE COMP_STACK";
     $ppstack_command    .= " -tracedest ${remote_outroot}.trace -log ${remote_outroot}.log ";
-    $ppstack_command    .= " -threads 10 ";
+    $ppstack_command    .= " -threads 4 ";
     $ppstack_command    .= " -dumpconfig ${remote_outroot}.mdc ";
     $ppstack_command    .= " -stack_id $stack_id -skycell_id $skycell_id -tess_id $tess_id ";
Index: branches/eam_branches/ipp-20140610/ippScripts/scripts/sc_transfer_tool.pl
===================================================================
--- branches/eam_branches/ipp-20140610/ippScripts/scripts/sc_transfer_tool.pl	(revision 36923)
+++ branches/eam_branches/ipp-20140610/ippScripts/scripts/sc_transfer_tool.pl	(revision 36928)
@@ -51,4 +51,6 @@
 while(<I>) {
     chomp;
+    $i = int(rand($#filehandles));
+
     my $fline;
     if ($fetch) {
@@ -57,10 +59,10 @@
     if (($fetch)&&(!(-e $_))) {  # We are fetching, and do not already have this file.
 	print { $filehandles[$i] } $fline;
-	$i++;
+#	$i++;
     }
     elsif (!($fetch)) { # We are pushing
 #	if (-e "${local_tmp}/$_") { 
 	    print { $filehandles[$i] } "${local_tmp}/$_" . "\n";
-	    $i++;
+#	    $i++;
 #	}
 #	else { # But somehow couldn't find the file we expected
@@ -69,5 +71,5 @@
 #	}
     }
-    if ($i >= $threads) { $i = 0; }
+#    if ($i >= $threads) { $i = 0; }
 }
 close(I);