diff --git a/src/interpret.c b/src/interpret.c
index af8c7af244da405c1721dda03a54b5d6b0577a8a..78f982624e6a91e802996d7b61d34add2a44587f 100644
--- a/src/interpret.c
+++ b/src/interpret.c
@@ -5,7 +5,7 @@
 \*/
 /**/
 #include "global.h"
-RCSID("$Id: interpret.c,v 1.117 1999/03/17 21:51:30 hubbe Exp $");
+RCSID("$Id: interpret.c,v 1.118 1999/03/19 11:43:14 hubbe Exp $");
 #include "interpret.h"
 #include "object.h"
 #include "program.h"
@@ -269,9 +269,9 @@ void lvalue_to_svalue_no_free(struct svalue *to,struct svalue *lval)
       
     default:
       if(IS_ZERO(lval))
-	error("Indexing the NULL value.\n"); /* Per */
+	index_error(0,0,0,lval,lval+1,"Indexing the NULL value.\n");
       else
-	error("Indexing a basic type.\n");
+	index_error(0,0,0,lval,lval+1,"Indexing a basic type.\n");
   }
 }
 
@@ -328,9 +328,9 @@ void assign_lvalue(struct svalue *lval,struct svalue *from)
     
   default:
    if(IS_ZERO(lval))
-     error("Indexing the NULL value.\n"); /* Per */
+     index_error(0,0,0,lval,lval+1,"Indexing the NULL value.\n");
    else
-     error("Indexing a basic type.\n");
+     index_error(0,0,0,lval,lval+1,"Indexing a basic type.\n");
   }
 }
 
@@ -368,9 +368,9 @@ union anything *get_pointer_if_this_type(struct svalue *lval, TYPE_T t)
       
     default:
       if(IS_ZERO(lval))
-	error("Indexing the NULL value.\n"); /* Per */
-    else
-      error("Indexing a basic type.\n");
+	index_error(0,0,0,lval,lval+1,"Indexing the NULL value.\n");
+      else
+	index_error(0,0,0,lval,lval+1,"Indexing a basic type.\n");
       return 0;
   }
 }