Tcl nanorc has typo ",green" in last 2 lines

What steps will reproduce the problem?
1. copy nanorc config of tcl to ~/.nanorc
2. run nano file.tcl
3.

What is the expected output? What do you see instead?
nano should open without error, but its having error loading

What version of the product are you using? On what operating system?
nano 1.2.1

Please provide any additional information below.

i edited colors of the tcl nanorc, think it look good, please use it if its 
fine:

++++++++++++++++++++++++++++++++++++++++++++++++++++

syntax "\.tcl$"

## Standard Tcl [info commands]
color green 
"\<(after|append|array|auto_execok|auto_import|auto_load|auto_load_index|auto_qu
alify|binary|break|case|catch|cd|clock|close|concat|continue|encoding|eof|error|
eval|exec|exit|expr|fblocked|fconfigure|fcopy|file|fileevent|flush|for|foreach|f
ormat|gets|glob|global|history|if|incr|info|interp|join|lappend|lindex|linsert|l
ist|llength|load|lrange|lreplace|lsearch|lset|lsort|namespace|open|package|pid|p
uts|pwd|read|regexp|regsub|rename|return|scan|seek|set|socket|source|split|strin
g|subst|switch|tclLog|tell|time|trace|unknown|unset|update|uplevel|upvar|variabl
e|vwait|while)\>"
## Basic Tcl sub commands.
color green "\<(array anymore|array donesearch|array exists|array get|array 
names|array nextelement|array set|array size|array startsearch|array 
statistics|array unset)\>"
color green "\<(string bytelength|string compare|string equal|string 
first|string index|string is|string last|string length|string map|string 
match|string range|string repeat|string replace|string to|string tolower|string 
totitle|string toupper|string trim|string trimleft|string trimright|string 
will|string wordend|string wordstart)\>"
## Extended TclX [info commands]
color green 
"\<(alarm|auto_load_pkg|bsearch|catclose|catgets|catopen|ccollate|cconcat|cequal
|chgrp|chmod|chown|chroot|cindex|clength|cmdtrace|commandloop|crange|csubstr|cto
ken|ctype|dup|echo|execl|fcntl|flock|fork|fstat|ftruncate|funlock|host_info|id|i
nfox|keyldel|keylget|keylkeys|keylset|kill|lassign|lcontain|lempty|lgets|link|lm
atch|loadlibindex|loop|lvarcat|lvarpop|lvarpush|max|min|nice|pipe|profile|random
|readdir|replicate|scancontext|scanfile|scanmatch|select|server_accept|server_cr
eate|signal|sleep|sync|system|tclx_findinit|tclx_fork|tclx_load_tndxs|tclx_sleep
|tclx_system|tclx_wait|times|translit|try_eval|umask|wait)\>"
## Syntax.
color blue "proc[[:space:]]" "(\{|\})"
color cyan "(\(|\)|\;|`|\\|\$|<|>|!|=|&|\|)"
color yellow ""(\\.|[^"])*"" "'(\\.|[^'])*'"
color red "\$\{?[0-9A-Z_!@#$*?-]+\}?"
color brightgreen "[[:space:]]+$"
color magenta "^([[:space:]]+|)#.*"

+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Original issue reported on code.google.com by pingtosa...@gmail.com on 2 Jun 2011 at 8:19
adhameed / nanosyntax

Tcl nanorc has typo ",green" in last 2 lines #7
