2 files changed, 15 insertions, 13 deletions
diff --git a/library/platform/pkgIndex.tcl b/library/platform/pkgIndex.tcl
index d141612..68924cb 100644
--- a/library/platform/pkgIndex.tcl
+++ b/library/platform/pkgIndex.tcl
@@ -1,3 +1,3 @@
-package ifneeded platform        1.0.2 [list source [file join $dir platform.tcl]]
+package ifneeded platform        1.0.3 [list source [file join $dir platform.tcl]]
 package ifneeded platform::shell 1.1.3 [list source [file join $dir shell.tcl]]
 
diff --git a/library/platform/platform.tcl b/library/platform/platform.tcl
index 27b565a..143cdc5 100644
--- a/library/platform/platform.tcl
+++ b/library/platform/platform.tcl
@@ -220,20 +220,22 @@ proc ::platform::patterns {id} {
 
     switch -glob --  $id {
 	solaris*-* {
-	    if {![regexp {solaris([^-]*)-(.*)} $id -> v cpu]} {return $id}
-	    if {$v eq ""} {return $id}
-	    foreach {major minor} [split $v .] break
-	    incr minor -1
-	    for {set j $minor} {$j >= 6} {incr j -1} {
-		lappend res solaris${major}.${j}-${cpu}
+	    if {[regexp {solaris([^-]*)-(.*)} $id -> v cpu]} {
+		if {$v eq ""} {return $id}
+		foreach {major minor} [split $v .] break
+		incr minor -1
+		for {set j $minor} {$j >= 6} {incr j -1} {
+		    lappend res solaris${major}.${j}-${cpu}
+		}
 	    }
 	}
 	linux*-* {
-	    if {![regexp {linux-glibc([^-]*)-(.*)} $id -> v cpu]} {return $id}
-	    foreach {major minor} [split $v .] break
-	    incr minor -1
-	    for {set j $minor} {$j >= 0} {incr j -1} {
-		lappend res linux-glibc${major}.${j}-${cpu}
+	    if {[regexp {linux-glibc([^-]*)-(.*)} $id -> v cpu]} {
+		foreach {major minor} [split $v .] break
+		incr minor -1
+		for {set j $minor} {$j >= 0} {incr j -1} {
+		    lappend res linux-glibc${major}.${j}-${cpu}
+		}
 	    }
 	}
 	macosx-powerpc -
@@ -249,7 +251,7 @@ proc ::platform::patterns {id} {
 # ### ### ### ######### ######### #########
 ## Ready
 
-package provide platform 1.0.2
+package provide platform 1.0.3
 
 # ### ### ### ######### ######### #########
 ## Demo application