I found it:
http://wiki.tcl.tk/526
List with duplicates removed, and keeping the original order:
proc luniq {L} {
# removes duplicates without sorting the input list
set t {}
foreach i $L {if {[lsearch -exact $t $i]==-1} {lappend t $i}}
return $t
} ;# RS