--- branches/tehnika/filter/croascii.pm	2004/03/12 15:43:01	265
+++ branches/tehnika/filter/croascii.pm	2004/03/12 15:44:03	266
@@ -4,7 +4,7 @@
 sub croascii {
 	my $out = "";
 	foreach (@_) {
-#		tr/^~]}\|[{@`/ÈèÆæÐ𩹮¾/;	# B1.002:1982
+#		tr/^\~]}\|[{@\`/ÈèÆæÐ𩹮¾/;	# B1.002:1982
 		tr/^\~]}\|[{@\`/ÈèÆæðй©¾®/;	# Crolist croascii
 		# Crolist alternative encoding
 		s/ÏC/È/g;