From bdcde9211707f896ac4fb5781372e1130c66a61e Mon Sep 17 00:00:00 2001
From: Przemyslaw Czerpak <druzus@priv.onet.pl>
Date: Tue, 21 Apr 2009 10:23:26 +0000
Subject: [PATCH] 2009-04-21 12:31 UTC+0200 Przemyslaw Czerpak
 (druzus/at/priv.onet.pl)   * harbour/source/rtl/valtoexp.prg     ! fixed typo
 in copy and past in previous modification

---
 harbour/ChangeLog               | 4 ++++
 harbour/source/rtl/valtoexp.prg | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index ef804923fb..c103c0995e 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2009-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
 */
 
+2009-04-21 12:31 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/source/rtl/valtoexp.prg
+    ! fixed typo in copy and past in previous modification
+
 2009-04-21 11:56 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/source/common/hbdate.c
     ! fixed decoding fractional part of seconds in timestamp expressions
diff --git a/harbour/source/rtl/valtoexp.prg b/harbour/source/rtl/valtoexp.prg
index 7fc5058b11..f4de050ce8 100644
--- a/harbour/source/rtl/valtoexp.prg
+++ b/harbour/source/rtl/valtoexp.prg
@@ -128,7 +128,7 @@ FUNCTION hb_CStr( xVal )
       CASE "D"
          RETURN iif( Empty( xVal ), "0d00000000", "0d" + DToS( xVal ) )
       CASE "T"
-         cVal := 't"' + hb_TSToStr( xVal, .T. ) + '"'
+         RETURN 't"' + hb_TSToStr( xVal, .T. ) + '"'
       CASE "L"
          RETURN iif( xVal, ".T.", ".F." )
       CASE "S"