diff --git a/DataStr/List.cpp b/DataStr/List.cpp
index 117747c7782bc7737b368b39b2df3708c8bc74aa..d3248a9aad85ffcccd16f36a376295c23f53468f 100644
--- a/DataStr/List.cpp
+++ b/DataStr/List.cpp
@@ -1,4 +1,4 @@
-/* $Id: List.cpp,v 1.9 2000-11-28 08:19:28 geuzaine Exp $ */
+/* $Id: List.cpp,v 1.10 2000-12-11 16:22:43 geuzaine Exp $ */
 
 #include <stdlib.h>
 #include <stdio.h>
@@ -154,6 +154,15 @@ void *List_Pointer_Fast(List_T *liste, int index)
   return(&liste->array[index * liste->size]);
 }
 
+void *List_Pointer_Test(List_T *liste, int index)
+{
+  if ((index < 0) || (index >= liste->n))
+    return NULL;
+    
+  liste->isorder = 0; /* getdp: a examiner... */
+  return(&liste->array[index * liste->size]);
+}
+
 void List_Sort(List_T *liste, int (*fcmp)(const void *a, const void *b))
 {
   qsort(liste->array,liste->n,liste->size,fcmp);
diff --git a/DataStr/List.h b/DataStr/List.h
index e161bca2846d0766904c8d31e5ae14574dd07c99..9397e43d0c4425a34558c5306760857b3443882b 100644
--- a/DataStr/List.h
+++ b/DataStr/List.h
@@ -1,4 +1,4 @@
-/* $Id: List.h,v 1.6 2000-11-27 17:13:42 geuzaine Exp $ */
+/* $Id: List.h,v 1.7 2000-12-11 16:22:43 geuzaine Exp $ */
 #ifndef _LIST_H_
 #define _LIST_H_
 
@@ -30,6 +30,7 @@ void    List_Pop(List_T *liste);
 void   *List_Pointer(List_T *liste, int index);
 void   *List_Pointer_NoChange(List_T *liste, int index);
 void   *List_Pointer_Fast(List_T *liste, int index);
+void   *List_Pointer_Test(List_T *liste, int index);
 void    List_Sort(List_T *liste, int (*fcmp)(const void *a, const void *b));
 int     List_Search(List_T *liste, void *data, int (*fcmp)(const void *a, const void *b));
 int     List_ISearch(List_T *liste, void *data, int (*fcmp)(const void *a, const void *b));