--- ray/src/util/genBSDF.pl	2016/09/16 20:01:29	2.68
+++ ray/src/util/genBSDF.pl	2016/09/16 22:42:42	2.69
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# RCSid $Id: genBSDF.pl,v 2.68 2016/09/16 20:01:29 greg Exp $
+# RCSid $Id: genBSDF.pl,v 2.69 2016/09/16 22:42:42 greg Exp $
 #
 # Compute BSDF based on geometry and material description
 #
@@ -21,6 +21,7 @@ if ($#ARGV == 1 && "$ARGV[0]" =~ /^-rec/) {
 	@ARGV = <MYAVH>;
 	close MYAVH;
 	chomp @ARGV;
+	$recovery = 0;
 	if (open(MYPH, "< $td/phase.txt")) {
 		while (<MYPH>) {
 			chomp($recovery = $_);