Trouble with info exists

[CrazyCat]

Hi there,

I'm creating variables with the content of a file.
The working part:

Code: Select all

foreach templine [split $data "\n"] {
	set faq_line [split $templine "="]
	regsub -all \# [lindex $faq_line 1] "\037" lex_text
	set lexik([string tolower [lindex $faq_line 0]]) $lex_text
}

And then, users can type !lexique <keyword> to call a definition wich is in $lexik(keyword)
But... the following test always match:

Code: Select all

set looking [string tolower [lindex [split $text] 0]]
	if {[info exists $::lexik($looking)]} {

$text is the keyword the user enter... and the tcl always find that an info exists.
Can someone tell me where is the trouble plz?

Thx by advance

[KrzychuG]

Try this:

Code: Select all

set looking [string tolower [lindex [split $text] 0]] 
   if {[info exists ::lexik($looking)]} {

[CrazyCat]

I hate myself
Sorry for this really stupid question, I promise I won't re-ask it