--- ray/src/rt/func.c	1989/04/11 13:30:29	1.4
+++ ray/src/rt/func.c	1989/07/27 22:25:13	1.6
@@ -66,13 +66,12 @@ RAY  *r;
 	register XF  *mxf;
 
 	if ((mxf = (XF *)m->os) == NULL) {
-		register int  n = m->oargs.nsargs;
-		register char  **sa = m->oargs.sarg;
+		register int  n;
+		register char  **sa;
 
-		while (n > 0 && **sa != '-') {
-			n--;
-			sa++;
-		}
+		for (n = m->oargs.nsargs, sa = m->oargs.sarg;
+				n > 0 && **sa != '-'; n--, sa++)
+			;
 		mxf = (XF *)malloc(sizeof(XF));
 		if (mxf == NULL)
 			goto memerr;
@@ -98,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);
 	}