--- a/sbsv1_os/e32toolp/genutil/listzip.pl	Wed May 05 09:19:45 2010 +0100
+++ b/sbsv1_os/e32toolp/genutil/listzip.pl	Wed May 05 18:05:18 2010 +0100
@@ -32,6 +32,9 @@
     _print_err_and_die("$prefix is not a directory.") unless -d $prefix;
     _print_err_and_die("$zipf doesn't exist.") unless -f $zipf;
 
+    $prefix =~ s/\/\//\//g;    # SBS provides "Q://", so reduce the doubling
+    $prefix =~ s/\/$//;        # remove trailing /, if any
+		
     my @raw_data = qx/unzip -l $zipf/;
 
     for (@raw_data)

--- a/toolsandutils/buildsystem/extension/tools/compsupp.mk	Wed May 05 09:19:45 2010 +0100
+++ b/toolsandutils/buildsystem/extension/tools/compsupp.mk	Wed May 05 18:05:18 2010 +0100
@@ -37,7 +37,7 @@
 SAVESPACE : do_nothing
 
 RELEASABLES :
-		@perl -S $(EPOCROOT)epoc32/tools/listzip.pl $(EPOCROOT) $(FILE)
+		@perl -S $(EPOCROOT)epoc32/tools/listzip.pl $(TODIR) $(FILE)
 
 CLEAN : do_nothing