One more fix

* rex (getopt): Always define progname.

1 files changed, 3 insertions, 3 deletions

diff --git a/rex b/rex
index 25c3405..867eb06 100755
--- a/rex
+++ b/rex
@@ -487,7 +487,7 @@ proc getopt {args} {
 		set args [lreplace $args 0 1]
 	    }
 	    "-progname" {
-		set progname [lindex $args 1]
+		set progname "[lindex $args 1]: "
 		set args [lreplace $args 0 1]
 	    }
 	    default {
@@ -496,8 +496,8 @@ proc getopt {args} {
 	}
     }
 
-    if [info exists progname] {
-	set progname "$progname: "
+    if ![info exists progname] {
+	set progname ""
     }
     
     if {[llength $args] != 4} {