Index: mi-main.c
===================================================================
RCS file: /cvs/src/src/gdb/mi/mi-main.c,v
retrieving revision 1.100
diff -u -r1.100 mi-main.c
--- mi-main.c	16 Jun 2007 17:16:26 -0000	1.100
+++ mi-main.c	30 Jul 2007 13:08:51 -0000
@@ -706,6 +706,11 @@
 	     stb->stream, 0, 0, 0, 0);
 
   ui_out_field_stream (uiout, "value", stb);
+
+  type_print (value_type (val), "", stb->stream, -1);
+
+  ui_out_field_stream (uiout, "type", stb);
+
   ui_out_stream_delete (stb);
 
   do_cleanups (old_chain);