--- ray/src/rt/dielectric.c	1993/02/25 10:04:22	2.4
+++ ray/src/rt/dielectric.c	1995/12/05 11:46:00	2.8
@@ -16,6 +16,8 @@ static char SCCSid[] = "$SunId$ LBL";
 
 #ifdef  DISPERSE
 #include  "source.h"
+static  disperse();
+static int  lambda();
 #endif
 
 /*
@@ -82,6 +84,7 @@ register RAY  *r;
 		setcolor(mcolor, pow(m->oargs.farg[0], r->rot),
 				 pow(m->oargs.farg[1], r->rot),
 				 pow(m->oargs.farg[2], r->rot));
+		multcolor(mcolor, r->pcol);	/* modify */
 	} else {				/* outside */
 		nratio = 1.0 / nratio;
 		if (m->otype == MAT_INTERFACE)
@@ -132,7 +135,6 @@ register RAY  *r;
 #endif
 			{
 				rayvalue(&p);
-				multcolor(mcolor, r->pcol);	/* modify */
 				scalecolor(p.rcol, trans);
 				addcolor(r->rcol, p.rcol);
 				if (nratio >= 1.0-FTINY && nratio <= 1.0+FTINY)
@@ -155,6 +157,8 @@ register RAY  *r;
 	}
 
 	multcolor(r->rcol, mcolor);		/* multiply by transmittance */
+
+	return(1);
 }