diff --git a/ChangeLog b/ChangeLog
index 59781abb75..189c70bff7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-04-22  Christian Stimming  <stimming@tuhh.de>
+
+	* src/scm/report/income-expense-graph.scm: Add links to new
+	reports on bars.
+
 2001-04-22  Dave Peticolas  <dave@krondo.com>
 
 	* src/scm/report/transaction-report.scm: use new api for
diff --git a/src/scm/report/income-expense-graph.scm b/src/scm/report/income-expense-graph.scm
index b7d54c2cc4..5f13795c88 100644
--- a/src/scm/report/income-expense-graph.scm
+++ b/src/scm/report/income-expense-graph.scm
@@ -192,6 +192,33 @@
 		  '("blue" "red") '())
 	      (if show-net?
 		  '("green") '())))
+
+      (if show-incexp?
+	  (let ((set-options (list '()))
+		(urls
+		 (list
+		  (gnc:make-report-anchor
+		   "Income Over Time"
+		   (gnc:report-options report-obj)
+		   (list 
+		    (list gnc:pagename-display
+			  "Use Stacked Bars" #t)
+		    (list gnc:pagename-general
+			  gnc:optname-reportname
+			  (_ "Income Chart"))))
+		  (gnc:make-report-anchor
+		   "Expense Over Time"
+		   (gnc:report-options report-obj)
+		   (list 
+		    (list gnc:pagename-display
+			  "Use Stacked Bars" #t)
+		    (list gnc:pagename-general
+			  gnc:optname-reportname
+			  (_ "Expense Chart")))))))
+	    (gnc:html-barchart-set-button-1-bar-urls! 
+	     chart urls)
+	    (gnc:html-barchart-set-button-1-legend-urls! 
+	     chart urls)))
       
       (gnc:html-document-add-object! document chart)