diff --git a/ChangeLog b/ChangeLog
index 33c61f8..cf4e1c9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-06-18  Richard B. Kreckel  <kreckel@ginac.de>
+
+	* rational/transcendental/cl_RA_logp.cc: fix bug where base is
+	reciprocal of an integer.
+
 2004-06-10  Richard B. Kreckel  <kreckel@ginac.de>
 
 	* examples/perfnum.cc: update to presumed 41st Mersenne prime.
diff --git a/src/rational/transcendental/cl_RA_logp.cc b/src/rational/transcendental/cl_RA_logp.cc
index 161cbe3..326ec99 100644
--- a/src/rational/transcendental/cl_RA_logp.cc
+++ b/src/rational/transcendental/cl_RA_logp.cc
@@ -50,7 +50,7 @@ cl_boolean logp (const cl_RA& a, const cl_RA& b, cl_RA* pl)
 				return cl_false;
 			// a1=1
 			var cl_RA l;
-			if (logp(a2,b,pl)) {
+			if (logp(a2,b,&l)) {
 				*pl = -l; return cl_true;
 			} else
 				return cl_false;