--- cvsroot/Convert-Scalar/Scalar.xs	2002/07/05 11:44:55	1.3
+++ cvsroot/Convert-Scalar/Scalar.xs	2002/09/23 03:42:02	1.4
@@ -107,7 +107,7 @@
 	SV *	scalar
         PROTOTYPE: $
 	CODE:
-        RETVAL = (UV) sv_len_utf8 (scalar);
+        RETVAL = (UV) utf8_length (SvPV_nolen (scalar), SvEND (scalar));
 	OUTPUT:
 	RETVAL