--- ray/src/rt/func.c	1989/04/19 21:36:11	1.5
+++ ray/src/rt/func.c	1989/07/27 22:25:13	1.6
@@ -97,7 +97,7 @@ char  *fname;
 	extern char  *libpath;		/* library search path */
 	char  *ffname;
 
-	if ((ffname = getpath(fname, libpath)) == NULL) {
+	if ((ffname = getpath(fname, libpath, R_OK)) == NULL) {
 		sprintf(errmsg, "cannot find function file \"%s\"", fname);
 		error(USER, errmsg);
 	}