===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/gc/cord/cordbscs.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -p -r1.3 -r1.4
--- OpenXM_contrib2/asir2000/gc/cord/cordbscs.c	2002/07/24 08:00:14	1.3
+++ OpenXM_contrib2/asir2000/gc/cord/cordbscs.c	2003/06/24 05:11:37	1.4
@@ -219,7 +219,7 @@ CORD CORD_cat_char_star(CORD x, const char * y, size_t
     	result->len = result_len;
     	result->left = x;
     	result->right = y;
-    	if (depth > MAX_DEPTH) {
+    	if (depth >= MAX_DEPTH) {
     	    return(CORD_balance((CORD)result));
     	} else {
     	    return((CORD) result);
@@ -260,7 +260,11 @@ CORD CORD_cat(CORD x, CORD y)
     	result->len = result_len;
     	result->left = x;
     	result->right = y;
-    	return((CORD) result);
+    	if (depth >= MAX_DEPTH) {
+    	    return(CORD_balance((CORD)result));
+    	} else {
+    	    return((CORD) result);
+    	}
     }
 }