Index: src/compdic/lst2fstext
===================================================================
--- src/compdic/lst2fstext	(revision e7de6cc88c605c4f810cbc852e843294b4b0e8ac)
+++ src/compdic/lst2fstext	(revision b242df28e54a297520242fa6f8f1d8ec891f6658)
@@ -13,5 +13,5 @@
     ++$s;
     print "0 $s <eps>\n";
-    while($c = shift @cs)
+    for $c (@cs)
     {
 	print $s . ' ' . ++$s . " $c\n";