--- skkdic2kanadic.org	Sat Oct  6 17:45:12 2001
+++ skkdic2kanadic	Sat Oct  6 17:58:23 2001
@@ -15,6 +15,7 @@
 	($y,$l) = split;
 	$l =~ s/^\///;
 	$l =~ s/\/$//;
+        $l =~ s/\[.+$//;
 	@w = split(/\//,$l);
 	for $w (@w){
 		print "$y\t$w\n";