--- ray/src/util/do_options.tcl	2003/02/22 02:07:30	2.8
+++ ray/src/util/do_options.tcl	2014/08/01 02:18:42	2.9
@@ -1,4 +1,4 @@
-# RCSid: $Id: do_options.tcl,v 2.8 2003/02/22 02:07:30 greg Exp $
+# RCSid: $Id: do_options.tcl,v 2.9 2014/08/01 02:18:42 greg Exp $
 #
 # Options screen for trad
 #
@@ -11,7 +11,7 @@ proc amb_delete {} {		# delete ambient file
 	}
 	set hl [string length [exec getinfo < $radvar(AMBFILE)]]
 	set fl [file size $radvar(AMBFILE)]
-	set nv [expr ($fl - $hl - 2) / 75]
+	set nv [expr ($fl - $hl - 2) / 67]
 	if {$nv > 50 && [tk_dialog .dlg {Verification} \
 				"Really delete ambient file $radvar(AMBFILE)\
 				with $nv indirect irradiance values?" \