thanks, but now the situation is even worse:

$ sudo rm -f /opt/local/share/darwinports/Tcl/port1.0/portuninstall.tcl

Password:

$ sudo port -f selfupdate

couldn't read file "/opt/local/share/darwinports/Tcl/port1.0/portuninstall.tcl": no such file or directory

    while executing

"source /opt/local/share/darwinports/Tcl/port1.0/portuninstall.tcl"

    ("package ifneeded" script)

    invoked from within

"package_native require portuninstall 1.0"

    ("eval" body line 1)

    invoked from within

"eval package_native $args"

    (procedure "package" line 14)

    invoked from within

"package require portuninstall 1.0"

    (file "/opt/local/share/darwinports/Tcl/registry1.0/registry.tcl" line 38)

    invoked from within

"source /opt/local/share/darwinports/Tcl/registry1.0/registry.tcl"

    ("package ifneeded" script)

    invoked from within

"package_native require registry 1.0"

    ("eval" body line 1)

    invoked from within

"eval package_native $args"

    (procedure "package" line 14)

    invoked from within

"package require registry 1.0"

    (procedure "dportinit" line 312)

    invoked from within

"dportinit ui_options global_options global_variations"

Error: /opt/local/bin/port: Failed to initialize ports system, couldn't read file "/opt/local/share/darwinports/Tcl/port1.0/portuninstall.tcl": no such file or directory