Index: src/port1.0/portutil.tcl
===================================================================
--- src/port1.0/portutil.tcl	(revision 25303)
+++ src/port1.0/portutil.tcl	(working copy)
@@ -1373,6 +1373,7 @@
 }
 
 proc variant_run {ditem} {
+    global PortInfo
     set name [ditem_key $ditem name]
     ui_debug "Executing variant $name provides [ditem_key $ditem provides]"
     
@@ -1391,6 +1392,19 @@
 	ui_error "Error executing $name: $result"
 	return 1
     }
+    # Update the long description to show that the variant is active
+    if {[string first [option os.platform] $name] != 0
+           && $name != [option os.arch]
+	   && [info exists PortInfo(long_description)]} {
+        set terminator "."
+	if {[info exists PortInfo(variant_desc)]} {
+	    array set descs $PortInfo(variant_desc)
+	    if {[info exists descs($name)]} {
+		set terminator ": $descs($name)\n"
+	    }
+	}
+	set PortInfo(long_description) [concat $PortInfo(long_description) "\n(+$name active$terminator)\n"]
+    }
     return 0
 }