Problem with tkdvd

[Brian]

After having updated to the latest snapshots, I am having problems running 
tkdvd.  I have tried rebuilding it without luck.

Any tips for what I can to resolve this?

Here's the error message I receive:

Application initialization failed: Can't find a usable tk.tcl in the following 
directories:
    /usr/local/lib/tk8.4 /usr/local/lib/tk8.4 /usr/lib/tk8.4 /usr/local/library 
/usr/library /usr/tk8.4.7/library /tk8.4.7/library

/usr/local/lib/tk8.4/tk.tcl: no event type or button # or keysym
no event type or button # or keysym
    while executing
"bind Listbox <MouseWheel> {
        %W yview scroll [expr {- (%D / 120) * 4}] units
    }"
    invoked from within
"if {[string equal [tk windowingsystem] "classic"]
        || [string equal [tk windowingsystem] "aqua"]} {
    bind Listbox <MouseWheel> {
        %W yview s..."
    (file "/usr/local/lib/tk8.4/listbox.tcl" line 182)
    invoked from within
"source /usr/local/lib/tk8.4/listbox.tcl"
    (in namespace eval "::" script line 1)
    invoked from within
"namespace eval :: [list source [file join $::tk_library $file.tcl]]"
    (procedure "SourceLibFile" line 2)
    invoked from within
"SourceLibFile listbox"
    (in namespace eval "::tk" script line 4)
    invoked from within
"namespace eval ::tk {
        SourceLibFile button
        SourceLibFile entry
        SourceLibFile listbox
        SourceLibFile menu
        SourceLibFile panedwindow
        SourceLibFile ..."
    invoked from within
"if {$::tk_library ne ""} {
    if {[string equal $tcl_platform(platform) "macintosh"]} {
        proc ::tk::SourceLibFile {file} {
            if {[catch {
                namesp..."
    (file "/usr/local/lib/tk8.4/tk.tcl" line 397)
    invoked from within
"source /usr/local/lib/tk8.4/tk.tcl"
    ("uplevel" body line 1)
    invoked from within
"uplevel #0 [list source $file]"
/usr/local/lib/tk8.4/tk.tcl: can't import command "mc": already exists
can't import command "mc": already exists
    while executing
"namespace import ::msgcat::mc"
    (in namespace eval "::tk::msgcat" script line 21)
    invoked from within
"namespace eval msgcat {
        namespace export mc mcmax
        if {[interp issafe] || [catch {package require msgcat}]} {
            # The msgcat..."
    (in namespace eval "::tk" script line 3)
    invoked from within
"namespace eval ::tk {
    # Set up the msgcat commands
    namespace eval msgcat {
        namespace export mc mcmax
        if {[interp issafe] || [..."
    (file "/usr/local/lib/tk8.4/tk.tcl" line 20)
    invoked from within
"source /usr/local/lib/tk8.4/tk.tcl"
    ("uplevel" body line 1)
    invoked from within
"uplevel #0 [list source $file]"


This probably means that tk wasn't installed properly.