foreach my $lang (@DDTP_LANGUAGES) {
     (my $locale = $lang) =~ s/^([a-z]{2})-([a-z]{2})$/"$1_".uc($2)/e;
     print "Reading Translations for $lang ($locale)...";
-    open PKG, "zcat $TOPDIR/archive/*/*/*/i18n/Translation-$locale.gz|";
+    open PKG, "bzcat $TOPDIR/archive/*/*/*/i18n/Translation-$locale.bz2|";
     my $count = 0;
     while (<PKG>) {
        next if /^\s*$/;
 
            locale=$(echo $lang|perl -p -e 's/^([a-z]{2})-([a-z]{2})$/"$1_".uc($2)/e')
            echo "retrieve translated Descs $dist/$part/$lang ($locale)"
             (cd us/${dist}/${part}/i18n &&
-                $wget_cmd -N ${ddtp_ftpsite}/dists/${dist}/${part}/i18n/Translation-$locale.gz)
+                $wget_cmd -N ${ddtp_ftpsite}/dists/${dist}/${part}/i18n/Translation-$locale.bz2)
          done
        done
     done
          do
            locale=$(echo $lang|perl -p -e 's/^([a-z]{2})-([a-z]{2})$/"$1_".uc($2)/e')
            echo "retrieve translated Descs $dist/$part/$lang ($locale)"
-            rsync -t ${localdir}/dists/${dist}/${part}/i18n/Translation-$locale.gz \
-               us/${dist}/${part}/i18n/Translation-$locale.gz
+            rsync -t ${localdir}/dists/${dist}/${part}/i18n/Translation-$locale.bz2 \
+               us/${dist}/${part}/i18n/Translation-$locale.bz2
          done
        done
     done