Index: xvfs-core.c
==================================================================
--- xvfs-core.c
+++ xvfs-core.c
@@ -150,11 +150,11 @@
 		default:
 			return(ERANGE);
 	}
 }
 
-static const char *xvfs_perror(int xvfs_error) {
+static const char *xvfs_strerror(int xvfs_error) {
 	if (xvfs_error >= 0) {
 		return("Not an error");
 	}
 
 	switch (xvfs_error) {
@@ -176,11 +176,11 @@
 	if (!interp) {
 		return;
 	}
 
 	Tcl_SetErrno(xvfs_errorToErrno(xvfs_error));
-	Tcl_SetResult(interp, (char *) xvfs_perror(xvfs_error), NULL);
+	Tcl_SetResult(interp, (char *) xvfs_strerror(xvfs_error), NULL);
 
 	return;
 }
 
 /*
@@ -212,11 +212,11 @@
 	XVFS_DEBUG_ENTER;
 	XVFS_DEBUG_PRINTF("Opening file \"%s\" ...", Tcl_GetString(path));
 
 	statRet = instanceInfo->fsInfo->getStatProc(Tcl_GetString(path), &fileInfo);
 	if (statRet < 0) {
-		XVFS_DEBUG_PRINTF("... failed: %s", xvfs_perror(statRet));
+		XVFS_DEBUG_PRINTF("... failed: %s", xvfs_strerror(statRet));
 
 		xvfs_setresults_error(interp, XVFS_RV_ERR_ENOENT);
 
 		XVFS_DEBUG_LEAVE;
 		return(NULL);
@@ -516,11 +516,11 @@
 
 	pathStr = xvfs_relativePath(path, instanceInfo);
 
 	retval = instanceInfo->fsInfo->getStatProc(pathStr, statBuf);
 	if (retval < 0) {
-		XVFS_DEBUG_PRINTF("... failed: %s", xvfs_perror(retval));
+		XVFS_DEBUG_PRINTF("... failed: %s", xvfs_strerror(retval));
 
 		Tcl_SetErrno(xvfs_errorToErrno(retval));
 
 		retval = -1;
 	} else {
@@ -763,11 +763,11 @@
 	}
 
 	childrenCount = 0;
 	children = instanceInfo->fsInfo->getChildrenProc(pathStr, &childrenCount);
 	if (childrenCount < 0) {
-		XVFS_DEBUG_PRINTF("... error: %s", xvfs_perror(childrenCount));
+		XVFS_DEBUG_PRINTF("... error: %s", xvfs_strerror(childrenCount));
 
 		Tcl_DecrRefCount(path);
 
 		xvfs_setresults_error(interp, childrenCount);