--- parser3/src/lib/cord/cordbscs.c	2003/03/18 15:18:14	1.1.2.1
+++ parser3/src/lib/cord/cordbscs.c	2003/04/02 07:29:21	1.1.2.6
@@ -144,14 +144,16 @@ void CORD_dump(CORD x)
     fflush(stdout);
 }
 
-CORD CORD_cat_char_star(CORD x, const char * y, size_t leny)
+CORD CORD_cat_char_star(CORD x, const char*  y, size_t leny)
 {
     register size_t result_len;
     register size_t lenx;
     register int depth;
-    
+
     if (x == CORD_EMPTY) return(y);
-    if (leny == 0) return(x);
+    if (leny == 0) leny=strlen(y); // PAF
+    if (leny == 0) ABORT("CORD_cat_char_star(,y,) is empty"); // PAF
+    
     if (CORD_IS_STRING(x)) {
         lenx = strlen(x);
         result_len = lenx + leny;
@@ -461,7 +463,7 @@ int CORD_iter5(CORD x, size_t i, CORD_it
 {
     if (x == 0) return(0);
     if (CORD_IS_STRING(x)) {
-    	register const char *p = x+i;
+    	register const char* p = x+i;
     	
     	if (*p == '\0') ABORT("2nd arg to CORD_iter5 too big");
         if (f2 != CORD_NO_FN) {
@@ -514,7 +516,7 @@ int CORD_riter4(CORD x, size_t i, CORD_i
 {
     if (x == 0) return(0);
     if (CORD_IS_STRING(x)) {
-	register const char *p = x + i;
+	register const char* p = x + i;
 	register char c;
                
 	for(;;) {