--- ray/src/util/do_zone.tcl 1994/10/28 20:14:41 2.3 +++ ray/src/util/do_zone.tcl 1994/11/01 20:01:58 2.4 @@ -36,7 +36,7 @@ proc zonechange {nm el op} { # record change in ZONE return } trace vdelete radvar(ZONE) wu zonechange - set radvar(ZONE) "$zonevar(IE) $zonevar(xmin) $zonevar(xmax) $zonevar(ymin) $zonevar(ymax) $zonevar(zmin) $zonevar(zmax)" + set radvar(ZONE) "$zonevar(IE) $zonevar(xmin) $zonevar(xmax) $zonevar(ymin) $zonevar(ymax) $zonevar(zmin) $zonevar(zmax)" trace variable radvar(ZONE) wu zonechange }