--- portinstall.tcl.orig	2008-11-04 09:06:00.000000000 -0500
+++ portinstall.tcl	2008-12-01 13:36:39.000000000 -0500
@@ -128,7 +128,7 @@
 }
 
 proc install_main {args} {
-	global portname portversion portpath categories description long_description homepage depends_run installPlist package-install uninstall workdir worksrcdir pregrefix UI_PREFIX destroot portrevision maintainers ports_force portvariants targets depends_lib PortInfo epoch
+	global portname portversion portpath categories description long_description homepage depends_run installPlist package-install uninstall workdir worksrcdir pregrefix UI_PREFIX destroot portrevision maintainers ports_force portvariants targets depends_lib PortInfo epoch poison_version
 
 	# Begin the registry entry
    	set regref [registry_new $portname $portversion $portrevision $portvariants $epoch]
@@ -158,6 +158,9 @@
 		registry_prop_store $regref depends_lib $depends_lib
 		registry_register_deps $depends_lib $portname
 	}
+	if {[info exists poison_version]} {
+		registry_prop_store $regref poison_version ${poison_version}
+	}
     if {[info exists installPlist]} {
 		registry_prop_store $regref contents [registry_fileinfo_for_index $installPlist]
 		if { [registry_prop_retr $regref installtype] != "image" } {