diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index a1256e1fdf..60f27c0560 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+19990802-05:30 EDT Paul Tucker <ptucker@sympatico.ca>
+  * test/working/scroll.prg
+    * added calls to dispbegin/dispend - nice & snappy now!
+
 199908.02-12:15 GMT+3 Alexander Kresin
   * source/hbpp/hbpp.c
     * Bug fixed ( mentioned by Victor Szel )
diff --git a/harbour/tests/working/scroll.prg b/harbour/tests/working/scroll.prg
index 2b2743e1fe..8359bb4744 100644
--- a/harbour/tests/working/scroll.prg
+++ b/harbour/tests/working/scroll.prg
@@ -12,6 +12,7 @@
 function main()
 
    DEVPOS(MAXROW(),0)
+   DispBegin()
    ? "If you have the GT API linked in, the screen will be blanked, a text block"
    ? "will be drawn in the upper-left hand corner of the screen, and then the inside"
    ? "of the text block will be scrolled around. Otherwise, you will see the screen"
@@ -19,6 +20,7 @@ function main()
    ? "up, but there will be no scrolling inside the text block."
    ?
    ?
+   DispEnd()
    Pause()
    CLS
    @ 0,0  SAY "01234567890123456789012345678901"