for-loop - Tcl の for ループに問題がある

Question

こんにちは、次のコードを試していますが、エラーが発生しています。参照値を指定する手順であり、手順はリストを上下に移動する必要があります。コードは次のとおりです。

proc getvalue {reference direction} {
    if {[regexp {(.*)(x.*$)} $reference cellname family string]} {
        puts $family
        puts $string
    } else {
        puts " No string matched"
    }
    set mylist [T_sel2list [get_lib_cells "*/*${family}*"] ]
    set sorted_finallist [lsort $mylist]
    set i [lsearch $sorted_finallist *$string ]
    if {$direction == "DOWN"} {
        if {$direction == "DOWN" && $i > 0} {
            incr i -1
            set requiredDOWN [lindex $sorted_finallist $i]
            puts "$requiredDOWN"
        }  else {
            puts "First in the line"
        } else {$direction == "UP" && $i >= 0 && $i < [llength $sorted_finallist] -2} {
            incr i
            set requiredUP [lindex $sorted_finallist $i]
            puts "$requiredUP"
        } else {
            puts "Last in the line"
        }
    }
}

次のようなエラーが表示されます: エラー: 間違った # 引数: "if" コマンドの "else" 句の後の余分な単語 詳細については、error_info を使用してください。(CMD-013) for ループのどこが悪いのかわかりません。誰かがこれで私を助けてくれませんか。