diff --git a/libguile/gh_data.c b/libguile/gh_data.c
index c9b762c7c..581f2b3b8 100644
--- a/libguile/gh_data.c
+++ b/libguile/gh_data.c
@@ -580,7 +580,7 @@ gh_vector_length (SCM v)
 unsigned long
 gh_uniform_vector_length (SCM v)
 {
-  return (unsigned long) SCM_UVECTOR_LENGTH (v);
+  return (unsigned long) scm_uniform_vector_length (v);
 }
 
 /* gets the given element from a uniform vector; ilist is a list (or