diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 58589d126f..c6a234f8bc 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+Mon Jan 18 08:38:05 1999  Mark Alexander  <marka@cygnus.com>
+
+	* values.c (value_virtual_fn_field): Clear the pointed-to
+	offset when casting to the base class.
+
 Mon Jan 18 10:30:51 1999  David Taylor  <taylor@texas.cygnus.com>
 
 	* remote-udi.c (init_udi_ops): change non-existant udi_run_ops to
diff --git a/gdb/values.c b/gdb/values.c
index 7b6dd6b9e7..c7053b8df7 100644
--- a/gdb/values.c
+++ b/gdb/values.c
@@ -1025,7 +1025,9 @@ value_virtual_fn_field (arg1p, f, j, type, offset)
       /* Now context is a pointer to the basetype containing the vtbl.  */
       if (TYPE_TARGET_TYPE (context) != type1)
         {
-          arg1 = value_ind (value_cast (context, value_addr (arg1)));
+	  value_ptr tmp = value_cast (context, value_addr (arg1));
+	  VALUE_POINTED_TO_OFFSET (tmp) = 0;
+          arg1 = value_ind (tmp);
           type1 = check_typedef (VALUE_TYPE (arg1));
         }