--- StemHR.pm	2007/06/28 10:34:39	15
+++ StemHR.pm	2007/06/28 10:38:34	16
@@ -1,4 +1,4 @@
-package StemHr;
+package StemHR;
 
 #
 # Croatian stemmer
@@ -49,6 +49,8 @@
 my $g_6r = '(:?nu|n)';
 
 sub stem {
+	my $self = shift;
+	die "call with StemHR->stem('word') $self" unless $self eq 'StemHR';
 
 	my $w = shift || return;
 
@@ -107,3 +109,4 @@
 	return $w;
 }
 
+1;