From 2869a4b8a1a2c0ed0b606d9f02b4c8a4e9aca95a Mon Sep 17 00:00:00 2001
From: Luiz Rafael Culik <culik@sl.conex.net>
Date: Thu, 7 Nov 2002 10:27:36 +0000
Subject: [PATCH] See changelog 2002-11-07 08:30 UTC-0300

---
 harbour/ChangeLog            | 3 +++
 harbour/source/rtl/alert.prg | 4 ++--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index e1d322a7e6..048d6784a9 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -7,6 +7,9 @@
    For example:
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
+2002-11-07 08:30 UTC-0300 Luiz Rafael Culik <culikr@uol.com.br>
+  * source/rtl/alert.prg
+    ! minor fix to my change from yesterday
 
 2002-11-06 18:38 UTC-0300 Walter Negro <anegro@overnet.com.ar>
   * source/rtl/achoice.prg
diff --git a/harbour/source/rtl/alert.prg b/harbour/source/rtl/alert.prg
index 9da85d358f..f3a448e87f 100644
--- a/harbour/source/rtl/alert.prg
+++ b/harbour/source/rtl/alert.prg
@@ -121,7 +121,7 @@ FUNCTION Alert( xMessage, aOptions, cColorNorm, nDelay )
       CASE ValType( xMessage ) == "B" ; xMessage := "{||...}"
       OTHERWISE                       ; xMessage := "NIL"
       ENDCASE
-
+     if Len(cOld) >60
       WHILE LEN(cOld) > 0
 
         IF AT( ';' , cOld ) > 0 //Dont do this  if ; exist
@@ -148,7 +148,7 @@ FUNCTION Alert( xMessage, aOptions, cColorNorm, nDelay )
 
     ENDDO
 
-        
+     endif
 
       DO WHILE ( nPos := At( ';', xMessage ) ) != 0
          AAdd( aSay, Left( xMessage, nPos - 1 ) )