Index: src/port/port.tcl
===================================================================
--- src/port/port.tcl	(revision 64998)
+++ src/port/port.tcl	(working copy)
@@ -95,7 +95,7 @@
 variants:, variant:, description:, depends:, depends_lib:, depends_run:,
 depends_build:, depends_fetch:, depends_extract:, portdir:, homepage:, epoch:,
 platforms:, platform:, name:, long_description:, maintainers:, maintainer:,
-categories:, category:, version:, and revision:.
+categories:, category:, version:, revision:, and license:.
 These each select a set of ports based on a regex search of metadata
 about the ports. In all such cases, a standard regex pattern following
 the colon will be used to select the set of ports to which the
@@ -997,7 +997,8 @@
         ^depends_run:       -
         ^depends_extract:   -
         ^depends_fetch:     -
-        ^revision:          { # Handle special port selectors
+        ^revision:          -
+        ^license:           { # Handle special port selectors
             advance
 
             # Break up the token, because older Tcl switch doesn't support -matchvar
Index: src/port/portindex.tcl
===================================================================
--- src/port/portindex.tcl	(revision 64998)
+++ src/port/portindex.tcl	(working copy)
@@ -68,7 +68,7 @@
             }
         }
 
-        set keepkeys {categories depends_fetch depends_extract depends_build depends_lib depends_run description epoch homepage long_description maintainers name platforms revision variants version portdir portarchive replaced_by}
+        set keepkeys {categories depends_fetch depends_extract depends_build depends_lib depends_run description epoch homepage long_description maintainers name platforms revision variants version portdir portarchive replaced_by license}
         foreach availkey [array names portinfo] {
             if {[lsearch -exact ${keepkeys} $availkey] == -1} {
                 unset portinfo($availkey)