diff --git a/gprof/ChangeLog b/gprof/ChangeLog
index 9faca5a0a72..cb8e1fbd954 100644
--- a/gprof/ChangeLog
+++ b/gprof/ChangeLog
@@ -1,3 +1,8 @@
+2008-08-05  Brian Dessent  <brian@dessent.net>
+
+	* gmon_io.c (gmon_out_read): When reading old format gmon.out,
+	set num_histograms and hist_scale.
+
 2008-08-04  Alan Modra  <amodra@bigpond.net.au>
 
 	* Makefile.am (POTFILES.in): Set LC_ALL=C.
diff --git a/gprof/gmon_io.c b/gprof/gmon_io.c
index 46399322979..8d1071a7a52 100644
--- a/gprof/gmon_io.c
+++ b/gprof/gmon_io.c
@@ -493,10 +493,13 @@ gmon_out_read (const char *filename)
 
       if (!histograms)
 	{
+	  num_histograms = 1;
 	  histograms = xmalloc (sizeof (struct histogram));
 	  histograms->lowpc = tmp.low_pc;
 	  histograms->highpc = tmp.high_pc;
 	  histograms->num_bins = hist_num_bins;
+	  hist_scale = (double)((tmp.high_pc - tmp.low_pc) / sizeof (UNIT))
+	    / hist_num_bins;
 	  histograms->sample = xmalloc (hist_num_bins * sizeof (int));
 	  memset (histograms->sample, 0, 
 		  hist_num_bins * sizeof (int));