X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/d4a5776ac5fd39fc65100d626ca3c147ca3dc2c2..47612fd68ae93815c08a92b504f9334b224c557e:/libguile/weak-vector.c

diff --git a/libguile/weak-vector.c b/libguile/weak-vector.c
index b1fff1b02..082cdde01 100644
--- a/libguile/weak-vector.c
+++ b/libguile/weak-vector.c
@@ -189,7 +189,7 @@ scm_c_weak_vector_ref (SCM wv, size_t k)
   d.k = k;
   
   if (k >= SCM_I_VECTOR_LENGTH (wv))
-    scm_out_of_range (NULL, scm_from_size_t (k)); 
+    scm_out_of_range ("weak-vector-ref", scm_from_size_t (k)); 
 
   ret = GC_call_with_alloc_lock (weak_vector_ref, &d);
   
@@ -227,7 +227,7 @@ scm_c_weak_vector_set_x (SCM wv, size_t k, SCM x)
   d.k = k;
 
   if (k >= SCM_I_VECTOR_LENGTH (wv))
-    scm_out_of_range (NULL, scm_from_size_t (k)); 
+    scm_out_of_range ("weak-vector-set!", scm_from_size_t (k)); 
   
   prev = GC_call_with_alloc_lock (weak_vector_ref, &d);