diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index ac2c82cec4..1077b14297 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+19990823-02:00 EDT Paul Tucker <ptucker@sympatico.ca>
+  * source/debug/tbrwtext.prg
+    * GotoLine() only forceStable once after loop is done.
+
 19990823-01:11 EDT Paul Tucker <ptucker@sympatico.ca>
   * source/debug/debugger.prg
     * ::Activate - fix for trashed screens
diff --git a/harbour/source/debug/tbrwtext.prg b/harbour/source/debug/tbrwtext.prg
index 693156628d..7427691ab3 100644
--- a/harbour/source/debug/tbrwtext.prg
+++ b/harbour/source/debug/tbrwtext.prg
@@ -53,13 +53,13 @@ METHOD GotoLine( nLine ) CLASS TBrwText
    if nLine > ::nLine
       while ::nLine < nLine
          ::Down()
-         ::ForceStable()
       end
+      ::ForceStable()
    else
       while ::nLine > nLine
          ::Up()
-         ::ForceStable()
       end
+      ::ForceStable()
    endif
 
 return nil