--- ray/src/cv/mgflib/object.c	1994/06/21 14:45:46	1.1
+++ ray/src/cv/mgflib/object.c	1995/05/10 17:18:45	1.3
@@ -18,7 +18,7 @@ char	**obj_name;			/* name list */
 
 static int	obj_maxname;		/* allocated list size */
 
-#define ALLOC_INC	16		/* list increment */
+#define ALLOC_INC	16		/* list increment ( > 1 ) */
 
 
 int
@@ -35,7 +35,7 @@ char	**av;
 	}
 	if (ac != 2)
 		return(MG_EARGC);
-	if (obj_nnames >= obj_maxname) {	/* enlarge array */
+	if (obj_nnames >= obj_maxname-1) {	/* enlarge array */
 		if (!obj_maxname)
 			obj_name = (char **)malloc(
 				(obj_maxname=ALLOC_INC)*sizeof(char *));
@@ -52,4 +52,16 @@ char	**av;
 	strcpy(obj_name[obj_nnames++], av[1]);
 	obj_name[obj_nnames] = NULL;
 	return(MG_OK);
+}
+
+
+void
+obj_clear()			/* clear object stack */
+{
+	while (obj_nnames)
+		free((MEM_PTR)obj_name[--obj_nnames]);
+	if (obj_maxname) {
+		free((MEM_PTR)obj_name);
+		obj_maxname = 0;
+	}
 }