proc compSheet t {

	global CellValues CellFormulae

	foreach ind [array names CellValues] {
		set v $CellValues($ind)
		if {[string first = $v] == 0} {
			set CellFormulae($ind) [crange $v 1 end]
			$t tag cell formula $ind
		}
	}

	set forms [$t tag cell formula]

#	one pass is not enough to propagate! seems we need some way
#	of knowing when we've got to the end -- a dependency map or 
#	an ordered list.

	foreach f $forms {
		cellEval $t $f
	}

	return 1

}

