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