--- trunk/filter/croascii.pm	2003/10/08 21:26:13	130
+++ trunk/filter/croascii.pm	2003/10/08 22:05:00	131
@@ -1,8 +1,11 @@
+# CROASCII (YUS|HRN) B1.002:1982
+# conversion to ISO-8859-2
 
 sub croascii {
 	my $out = "";
 	foreach (@_) {
-		tr/~^}]{[|\`@/Èæƹ©ðо®/;
+#		tr/^~]}\|[{@`/ÈèÆæÐ𩹮¾/;	# B1.002:1982
+		tr/^\~]}\|[{@\`/ÈèÆæðй©¾®/;	# Crolist croascii
 		$out .= $_;
 	}
 	return $out;