See changelog 2002-11-11 19:35 UTC-0300

harbour/ChangeLog

@@ -7,6 +7,9 @@
    For example:
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
+2002-11-10 19:35 UTC-0300 Luiz Rafael Culik <culikr@uol.com.br>
+  *source/rtl/alert.prg  
+    ! fix initialization of cold Var
 
 2002-11-08 13:19 UTC+0100 Ignacio Ortiz <ignacio@fivetech.com>
   * source/rtl/errorapi.c
@@ -15,6 +18,7 @@
     !Fixed bug reported Brian Hays (the solution is also from Brian)
 
 2002-11-07 22:05 UTC-0300 Luiz Rafael Culik <culikr@uol.com.br>
+  *source/rtl/alert.prg
   ! due an little mistake i`ve posted xharbour code, i`ve reverted back to version 1.38 and applyed the patch
 2002-11-07 08:30 UTC-0300 Luiz Rafael Culik <culikr@uol.com.br>
   * source/rtl/alert.prg

harbour/source/rtl/alert.prg

@@ -61,7 +61,7 @@ FUNCTION Alert( xMessage, aOptions, cColorNorm, nDelay )
    LOCAL nOldDispCount
    LOCAL nCount
    Local cNew,cOld,cTemp
-
+    
 #ifdef HB_COMPAT_C53
    LOCAL nMRow, nMCol
 #endif
@@ -119,7 +119,8 @@ FUNCTION Alert( xMessage, aOptions, cColorNorm, nDelay )
       CASE ValType( xMessage ) == "B" ; xMessage := "{||...}"
       OTHERWISE                       ; xMessage := "NIL"
       ENDCASE
-
+      cOld:= xMessage
+    
      if Len(cOld) >60
       WHILE LEN(cOld) > 0