--- ray/src/common/calfunc.c	2021/09/16 23:48:47	2.26
+++ ray/src/common/calfunc.c	2021/09/27 23:30:53	2.27
@@ -1,5 +1,5 @@
 #ifndef lint
-static const char	RCSid[] = "$Id: calfunc.c,v 2.26 2021/09/16 23:48:47 greg Exp $";
+static const char	RCSid[] = "$Id: calfunc.c,v 2.27 2021/09/27 23:30:53 greg Exp $";
 #endif
 /*
  *  calfunc.c - routines for calcomp using functions.
@@ -412,8 +412,8 @@ l_max(char *nm)		/* general maximum function */
 	int  n = nargum();
 	double  vmax = argument(1);
 
-	while (--n) {
-		double  v = argument(n);
+	while (n > 1) {
+		double  v = argument(n--);
 		if (vmax < v)
 			vmax = v;
 	}
@@ -427,8 +427,8 @@ l_min(char *nm)		/* general minimum function */
 	int  n = nargum();
 	double  vmin = argument(1);
 
-	while (--n) {
-		double  v = argument(n);
+	while (n > 1) {
+		double  v = argument(n--);
 		if (vmin > v)
 			vmin = v;
 	}