Fix permisions
diff --git a/archival/ar.c b/archival/ar.c
index b758a69..eaa15a5 100644
--- a/archival/ar.c
+++ b/archival/ar.c
@@ -298,7 +298,8 @@
 	
        while(extractList->next != NULL) {	
 		if ( (funct & EXT_TO_FILE) == EXT_TO_FILE) {
-			dstFd = open(extractList->name, O_WRONLY | O_CREAT);
+			dstFd = open(extractList->name, O_WRONLY | O_CREAT, extractList->mode);
+			
 			extractAr(srcFd, dstFd, extractList);
 		}
 		if ( (funct & EXT_TO_STDOUT) == EXT_TO_STDOUT)