--- ray/src/util/do_zone.tcl	1996/05/17 14:59:17	2.5
+++ ray/src/util/do_zone.tcl	2003/02/22 02:07:30	2.7
@@ -1,4 +1,4 @@
-# SCCSid "$SunId$ LBL"
+# RCSid: $Id: do_zone.tcl,v 2.7 2003/02/22 02:07:30 greg Exp $
 #
 # Create ZONE screen
 #
@@ -63,7 +63,7 @@ proc get_bbox {} {
 		if [catch {eval exec getbbox -h $bbargs} bbout] {
 			set curmess $bbout
 		} else {
-			set curmess {}
+			set curmess "Done."
 			set radvar(ZONE) "$zonevar(IE) $bbout"
 		}
 	}