Index: appfsd.c
==================================================================
--- appfsd.c
+++ appfsd.c
@@ -378,11 +378,11 @@
 	Tcl_Interp *interp;
 	Tcl_Obj *attrs_dict, *attr_value;
 	const char *attr_value_str;
 	Tcl_WideInt attr_value_wide;
 	int attr_value_int;
-	static __thread Tcl_Obj *attr_key_type = NULL, *attr_key_perms = NULL, *attr_key_size = NULL, *attr_key_time = NULL, *attr_key_source = NULL, *attr_key_childcount = NULL;
+	static __thread Tcl_Obj *attr_key_type = NULL, *attr_key_perms = NULL, *attr_key_size = NULL, *attr_key_time = NULL, *attr_key_source = NULL, *attr_key_childcount = NULL, *attr_key_packaged = NULL;
 	int tcl_ret;
 
 	interp = appfs_TclInterp();
 	if (interp == NULL) {
 		return(-EIO);
@@ -401,10 +401,11 @@
 		attr_key_perms      = Tcl_NewStringObj("perms", -1);
 		attr_key_size       = Tcl_NewStringObj("size", -1);
 		attr_key_time       = Tcl_NewStringObj("time", -1);
 		attr_key_source     = Tcl_NewStringObj("source", -1);
 		attr_key_childcount = Tcl_NewStringObj("childcount", -1);
+		attr_key_packaged   = Tcl_NewStringObj("packaged", -1);
 	}
 
 	attrs_dict = Tcl_GetObjResult(interp);
 	tcl_ret = Tcl_DictObjGet(interp, attrs_dict, attr_key_type, &attr_value);
 	if (tcl_ret != TCL_OK) {
@@ -475,10 +476,15 @@
 			}
 			break;
 		default:
 			return(-EIO);
 	}
+
+	Tcl_DictObjGet(interp, attrs_dict, attr_key_packaged, &attr_value);
+	if (attr_value != NULL) {
+		pathinfo->packaged = 1;
+	}
 
 	Tcl_DictObjGet(interp, attrs_dict, attr_key_time, &attr_value);
 	if (attr_value != NULL) {
 		tcl_ret = Tcl_GetWideIntFromObj(NULL, attr_value, &attr_value_wide);
 		if (tcl_ret == TCL_OK) {
@@ -565,13 +571,11 @@
 
 			break;
 	}
 
 	if (pathinfo.packaged) {
-		if (0) {
-			stbuf->st_mode |= 0222;
-		}
+		stbuf->st_mode |= 0222;
 	}
 
 	return(retval);
 }
 
@@ -699,10 +703,26 @@
 
 	read_ret = read(fi->fh, buf, size);
 
 	return(read_ret);
 }
+
+static int appfs_fuse_write(const char *path, const char *buf, size_t size, off_t offset, struct fuse_file_info *fi) {
+	off_t lseek_ret;
+	ssize_t write_ret;
+
+	APPFS_DEBUG("Enter (path = %s, ...)", path);
+
+	lseek_ret = lseek(fi->fh, offset, SEEK_SET);
+	if (lseek_ret != offset) {
+		return(-EIO);
+	}
+
+	write_ret = write(fi->fh, buf, size);
+
+	return(write_ret);
+}
 
 /*
  * SQLite3 mode: Execute raw SQL and return success or failure
  */
 static int appfs_sqlite3(const char *sql) {
@@ -790,11 +810,12 @@
 	.getattr   = appfs_fuse_getattr,
 	.readdir   = appfs_fuse_readdir,
 	.readlink  = appfs_fuse_readlink,
 	.open      = appfs_fuse_open,
 	.release   = appfs_fuse_close,
-	.read      = appfs_fuse_read
+	.read      = appfs_fuse_read,
+	.write     = appfs_fuse_write
 };
 
 /*
  * FUSE option parsing callback
  */

Index: appfsd.tcl
==================================================================
--- appfsd.tcl
+++ appfsd.tcl
@@ -483,10 +483,12 @@
 			"toplevel" - "sites" - "packages" - "os-cpu" - "versions" {
 				set retval(type) directory
 				set retval(childcount) 2;
 			}
 			"files" {
+				set retval(packaged) 1
+
 				set localpath [_localpath $pathinfo(package) $pathinfo(hostname) $pathinfo(file)]
 				if {[file exists $localpath]} {
 					catch {
 						file lstat $localpath localpathinfo
 						set retval(time) $localpathinfo(mtime)