@@ -326,10 +326,12 @@
 			file copy -force -- $origfile $extfile
 		}
 
 		file delete -- $regfile
 		file link -hard $regfile $extfile
+		file attributes $regfile -permissions -x
+		file attributes $extfile -permissions -x
 	}
 }
 
 proc create_entity_file {entity dstdir pkginfo_arrlist} {
 	array set pkginfo $pkginfo_arrlist