Only in src: local
Only in src/port: port.tcl.orig
Only in src/port: port.tcl.rej
diff -ur ../Macports-1.8.0/src/registry1.0/portimage.tcl src/registry1.0/portimage.tcl
--- ../Macports-1.8.0/src/registry1.0/portimage.tcl	2009-07-12 07:59:39.000000000 -0700
+++ src/registry1.0/portimage.tcl	2009-08-28 11:19:24.000000000 -0700
@@ -417,7 +417,9 @@
 			# well.
 			set directory [file dirname $theFile]
 			while { [lsearch -exact $files $directory] == -1 } { 
-				lappend files $directory
+				if { !([file type $directory] == "link") }  {
+                                    lappend files $directory
+                                }
 				set directory [file dirname $directory]
 			}
 		} else {
diff -ur ../Macports-1.8.0/src/registry1.0/portuninstall.tcl src/registry1.0/portuninstall.tcl
--- ../Macports-1.8.0/src/registry1.0/portuninstall.tcl	2009-06-11 05:43:30.000000000 -0700
+++ src/registry1.0/portuninstall.tcl	2009-08-28 12:28:34.000000000 -0700
@@ -197,7 +197,9 @@
 			# list as well.
 			set directory [file dirname $theFile]
 			while { [lsearch -exact $files $directory] == -1 } { 
-				lappend files $directory
+				if { !([file type $directory] == "link") } {
+                                    lappend files $directory
+                                }
 				set directory [file dirname $directory]
 			}
 		}