--- trunk/filter/croascii.pm	2004/04/17 23:22:32	317
+++ trunk/filter/croascii.pm	2004/04/18 00:50:13	318
@@ -5,7 +5,7 @@
 	my $out = "";
 	foreach (@_) {
 #		tr/^~]}\|[{@`/ÈèÆæÐ𩹮¾/;	# B1.002:1982
-		tr/^\~]}\|[{@\`/ÈèÆæðй©¾®/;	# Crolist croascii
+		tr/^~]}\\|[{@`/ÈèÆæðЩ¹®¾/;	# Crolist croascii
 		# Crolist alternative encoding
 		s/ÏC/È/g;
 		s/Ïc/è/g;