--- trunk/filter/croascii.pm	2003/10/30 00:49:43	141
+++ trunk/filter/croascii.pm	2004/04/18 02:15:16	322
@@ -5,17 +5,18 @@
 	my $out = "";
 	foreach (@_) {
 #		tr/^~]}\|[{@`/ÈèÆæÐ𩹮¾/;	# B1.002:1982
-		tr/^\~]}\|[{@\`/ÈèÆæðй©¾®/;	# Crolist croascii
+		tr/^~]}\\|[{@`/ÈèÆæÐ𩹮¾/;	# Crolist croascii
 		# Crolist alternative encoding
 		s/ÏC/È/g;
 		s/Ïc/è/g;
 		s/ÂC/Æ/g;
 		s/Âc/æ/g;
-
-		s/ÏS/©/g;
-		s/Ïs/¹/g;
 		#s/??/Ð/g;
 		s/ò/ð/g;
+		s/ÏS/©/g;
+		s/Ïs/¹/g;
+		s/ÏZ/®/g;
+		s/Ïz/¾/g;
 		$out .= $_;
 	}
 	return $out;