--- ray/src/rt/dielectric.c	1989/06/07 08:38:31	1.2
+++ ray/src/rt/dielectric.c	1990/03/27 11:39:58	1.3
@@ -135,6 +135,7 @@ register RAY  *r;
 				multcolor(mcolor, r->pcol);	/* modify */
 				scalecolor(p.rcol, trans);
 				addcolor(r->rcol, p.rcol);
+				r->rt = r->rot + p.rt;
 			}
 		}
 	}
@@ -150,6 +151,8 @@ register RAY  *r;
 
 		scalecolor(p.rcol, refl);	/* color contribution */
 		addcolor(r->rcol, p.rcol);
+		if (refl > trans)
+			r->rt = r->rot + p.rt;
 	}
 
 	multcolor(r->rcol, mcolor);		/* multiply by transmittance */