Index: lib/xvfs/xvfs.tcl
==================================================================
--- lib/xvfs/xvfs.tcl
+++ lib/xvfs/xvfs.tcl
@@ -135,11 +135,11 @@
 	} else {
 		set isTopLevel false
 	}
 
 	if {$isTopLevel} {
-		puts "static struct xvfs_file_data xvfs_${fsName}_data\[\] = \{"
+		puts "static const struct xvfs_file_data xvfs_${fsName}_data\[\] = \{"
 	}
 
 	# XXX:TODO: Include hidden files ?
 	set children [list]
 	foreach file [glob -nocomplain -tails -directory $workingDirectory *] {

Index: xvfs.c.rvt
==================================================================
--- xvfs.c.rvt
+++ xvfs.c.rvt
@@ -114,11 +114,11 @@
 	
 	return(XVFS_NAME_LOOKUP_ERROR);
 }
 
 static const char **xvfs_<?= $::xvfs::fsName ?>_getChildren(const char *path, Tcl_WideInt *count) {
-	struct xvfs_file_data *fileInfo;
+	const struct xvfs_file_data *fileInfo;
 	long inode;
 
 	/*
 	 * Validate input parameters
 	 */
@@ -148,11 +148,11 @@
 	*count = fileInfo->size;
 	return(fileInfo->data.dirChildren);
 }
 
 static const unsigned char *xvfs_<?= $::xvfs::fsName ?>_getData(const char *path, Tcl_WideInt start, Tcl_WideInt *length) {
-	struct xvfs_file_data *fileInfo;
+	const struct xvfs_file_data *fileInfo;
 	Tcl_WideInt resultLength;
 	long inode;
 
 	/*
 	 * Validate input parameters
@@ -210,11 +210,11 @@
 	 */
 	return(fileInfo->data.fileContents + start);
 }
 
 static int xvfs_<?= $::xvfs::fsName ?>_getStat(const char *path, Tcl_StatBuf *statBuf) {
-	struct xvfs_file_data *fileInfo;
+	const struct xvfs_file_data *fileInfo;
 	long inode;
 
 	/*
 	 * Validate input parameters
 	 */