diff --git a/zip_nes_roms.pl b/zip_nes_roms.pl
index 4df2596..74492f3 100755
--- a/zip_nes_roms.pl
+++ b/zip_nes_roms.pl
@@ -8,6 +8,7 @@ use warnings "all";
 use IO::Compress::Zip qw(:all);
 
 sub zlist(@);
+
 my $L1;
 opendir($L1, ".") || die;
 my @L1DIR = readdir($L1);
@@ -41,11 +42,11 @@ sub zlist(@){
 	my $item;
 
 	foreach $item (@list) {
-		printf ("zipping: %s to %s.zip", $item, $item);
-		zip [$item] => "$item.zip", -Level => Z_BEST_COMPRESSION, Minimal => 1, TextFlag => 1;
+		printf ("zipping: %s", $item);
+		zip [$item] => "$item.zip", -Level => Z_BEST_COMPRESSION, Minimal => 1, TextFlag => 0;
 
 		if(length($ZipError) > 0){
-			printf ("Warning: unable to zip %s - %s\n", $item, $ZipError);
+			printf (" Warning: unable to zip %s - %s\n", $item, $ZipError);
 		}else{
 			printf (" and deleting source file\n");
 			unlink($item);