--- trunk/filter/croascii.pm	2003/11/06 21:35:17	143
+++ trunk2/filter/croascii.pm	2004/06/10 19:22:40	337
@@ -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;