diff --git a/src/frontends/xforms/ChangeLog b/src/frontends/xforms/ChangeLog
index 711b285813..5e7901aa1e 100644
--- a/src/frontends/xforms/ChangeLog
+++ b/src/frontends/xforms/ChangeLog
@@ -1,3 +1,8 @@
+2002-07-26  Jean-Marc Lasgouttes  <lasgouttes@freesurf.fr>
+
+	* XWorkArea.C (work_area_handler): change type of
+	scrollbar_value_old to double
+
 2002-07-29  Lars Gullik Bjønnes  <larsbj@gullik.net>
 
 	* several files: strip,frontStrip -> trim,ltrim,rtrim
diff --git a/src/frontends/xforms/XWorkArea.C b/src/frontends/xforms/XWorkArea.C
index 3270cec09f..e472572924 100644
--- a/src/frontends/xforms/XWorkArea.C
+++ b/src/frontends/xforms/XWorkArea.C
@@ -332,7 +332,7 @@ int XWorkArea::work_area_handler(FL_OBJECT * ob, int event,
 {
 	static int x_old = -1;
 	static int y_old = -1;
-	static long scrollbar_value_old = -1;
+	static double scrollbar_value_old = -1.0;
 
 	XEvent * ev = static_cast<XEvent*>(xev);
 	XWorkArea * area = static_cast<XWorkArea*>(ob->u_vdata);