SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Wed Oct  7 21:12:37 2009
New Revision: 10717

Modified:
   toys/stbr/stbr.tcl
Log:
- fix


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Wed Oct  7 21:12:37 2009
@@ -204,7 +204,7 @@
 if {([string match */* $spec])} {
 	set halfs [split $spec "/"]
 	set spechalf [lindex $halfs 0]
-	set bcondshalf [lindex $halfs 1]
+	set bcondhalf [lindex $halfs 1]
 	if {([string match *:* $spechalf])} {
 		set halfs [split $spechalf ":"]
 		set spec [lindex $halfs 0]