diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 88b6573fe2..2ff1169c5f 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,9 @@
+2002-07-26  Kevin Buettner  <kevinb@redhat.com>
+
+	* utils.c (host_pointer_to_address, address_to_host_pointer):
+	Change internal_error() message to indicate function responsible
+	for the error.
+
 2002-07-26  Kevin Buettner  <kevinb@redhat.com>
 
 	* ui-out.c (ui_out_field_core_addr): Remove unnecessary cast in
diff --git a/gdb/utils.c b/gdb/utils.c
index b2d9ecafdb..50cab72060 100644
--- a/gdb/utils.c
+++ b/gdb/utils.c
@@ -2464,7 +2464,7 @@ host_pointer_to_address (void *ptr)
 {
   if (sizeof (ptr) != TYPE_LENGTH (builtin_type_void_data_ptr))
     internal_error (__FILE__, __LINE__,
-		    "core_addr_to_void_ptr: bad cast");
+		    "host_pointer_to_address: bad cast");
   return POINTER_TO_ADDRESS (builtin_type_void_data_ptr, &ptr);
 }
 
@@ -2474,7 +2474,7 @@ address_to_host_pointer (CORE_ADDR addr)
   void *ptr;
   if (sizeof (ptr) != TYPE_LENGTH (builtin_type_void_data_ptr))
     internal_error (__FILE__, __LINE__,
-		    "core_addr_to_void_ptr: bad cast");
+		    "address_to_host_pointer: bad cast");
   ADDRESS_TO_POINTER (builtin_type_void_data_ptr, &ptr, addr);
   return ptr;
 }