Modified: trunk/base/src/registry2.0/portimage.tcl (81576 => 81577)

--- trunk/base/src/registry2.0/portimage.tcl	2011-08-02 06:34:14 UTC (rev 81576)
+++ trunk/base/src/registry2.0/portimage.tcl	2011-08-02 06:52:37 UTC (rev 81577)
@@ -304,7 +304,7 @@
         set unarchive.pre_args {}
         set unarchive.args {}
         set unarchive.pipe_cmd ""
-        set unarchive.type [file tail $location]
+        set unarchive.type [file extension $location]
         switch -regex ${unarchive.type} {
             cp(io|gz) {
                 set pax "pax"