Index: ld-collate.c
===================================================================
RCS file: /cvs/glibc/libc/locale/programs/ld-collate.c,v
retrieving revision 1.99
diff -u -r1.99 ld-collate.c
--- ld-collate.c	2001/12/10 01:15:02	1.99
+++ ld-collate.c	2002/01/18 11:18:01
@@ -1672,6 +1672,10 @@
 
 	  runp->wcseqorder = wcseqact++;
 	}
+      else if (runp->mbs != NULL && runp->weights != NULL)
+        {
+          runp->wcseqorder = wcseqact++;
+        }
 
       /* Up to the next entry.  */
       runp = runp->next;
@@ -1706,8 +1710,9 @@
 	  struct element_t *lastp;
 
 	  /* Insert the collation sequence value.  */
-	  collseq_table_add (&collate->wcseqorder, runp->wcs[0],
-			     runp->wcseqorder);
+	  if (runp->is_character)
+	    collseq_table_add (&collate->wcseqorder, runp->wcs[0],
+			       runp->wcseqorder);
 
 	  /* Find the point where to insert in the list.  */
 	  e = wchead_table_get (&collate->wcheads, runp->wcs[0]);