--- branches/tehnika/filter/croascii.pm	2004/04/18 01:03:27	321
+++ branches/tehnika/filter/croascii.pm	2004/04/18 02:19:42	323
@@ -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;