--- macports.tcl.orig	2008-11-04 09:05:59.000000000 -0500
+++ macports.tcl	2008-12-01 15:26:58.000000000 -0500
@@ -2022,6 +2022,23 @@
         return 1
     }
 
+    if {![info exists portinfo(poison_version)]} {
+        ui_error "Invalid port entry for $portname, missing poison_version"
+        return 1
+    }
+    set poison_version $portinfo(poison_version)
+    if { [rpm-vercomp $poison_version $version_installed] > 0 } {
+        ui_debug "${portname} ${poison_version} was a significant change and ${portname} ${poison_version} > ${portname} ${version_installed}"
+        if {![info exists options(ports_do_dependents)]} {
+            ui_debug "    upgrading dependents even without -R option"
+        }
+        if {![info exists options(ports_force)]} {
+            ui_debug "    forcing upgrade even without -f option"
+        }
+        set options(ports_do_dependents) 1
+        set options(ports_force) 1
+    }
+
     # Check if we have to do dependents
     if {[info exists options(ports_do_dependents)]} {
         # We do dependents ..