Modified: trunk/base/src/registry2.0/registry_util.tcl (75335 => 75336)

--- trunk/base/src/registry2.0/registry_util.tcl	2011-01-22 05:54:09 UTC (rev 75335)
+++ trunk/base/src/registry2.0/registry_util.tcl	2011-01-22 09:04:49 UTC (rev 75336)
@@ -52,7 +52,7 @@
 ## @return               true if `specifier` is a valid specifier, else false
 proc decode_spec {specifier version revision variants} {
     upvar 1 $version ver $revision rev $variants var
-    return [regexp {^([^+]+?)(_(\d+)(([-+][^-+]+)*))?$} $specifier - ver - rev var]
+    return [regexp {^([^+]+?)(_(\d+)(([-+][^-+]*[^-+[:digit:]_][^-+]*)*))?$} $specifier - ver - rev var]
 }
 
 ## Checks that the given port has no dependent ports. If it does, throws an