--- ray/src/util/genBSDF.pl	2015/02/20 18:26:09	2.49
+++ ray/src/util/genBSDF.pl	2015/03/16 00:40:51	2.52
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# RCSid $Id: genBSDF.pl,v 2.49 2015/02/20 18:26:09 greg Exp $
+# RCSid $Id: genBSDF.pl,v 2.52 2015/03/16 00:40:51 greg Exp $
 #
 # Compute BSDF based on geometry and material description
 #
@@ -371,7 +371,7 @@ sub ttree_comp {
 		close DATOUT;
 	}
 	if ( "$spec" ne "$curspec" ) {
-		$wrapper .= " -s $spec"
+		$wrapper .= " -s $spec";
 		$curspec = $spec;
 	}
 	$wrapper .= " -$typ $dest";
@@ -440,12 +440,12 @@ sub matrix_comp {
 	} elsif ("$spec" eq "CIE-Z") {
 		$cmd .= " -c 0.024 0.123 0.853";
 	}
-	$cmd .= " $src | getinfo -";
+	$cmd .= " $src | rcollate -ho -oc 145";
 	# print STDERR "Running: $cmd\n";
 	system "$cmd > $dest";
 	die "Failure running rttree_reduce" if ( $? );
 	if ( "$spec" ne "$curspec" ) {
-		$wrapper .= " -s $spec"
+		$wrapper .= " -s $spec";
 		$curspec = $spec;
 	}
 	$wrapper .= " -$typ $dest";