From 0c82e16f4a195fc2db467fa8aae1d92207ec3f15 Mon Sep 17 00:00:00 2001
From: Walter Negro <anegro@overnet.com.ar>
Date: Wed, 17 Apr 2002 14:54:45 +0000
Subject: [PATCH]    * source/rtl/tget.prg      ! Fix bug in DeleteAll method.
 Change DTOC() for CTOD().

     * Bug fixed, reported by Lorenzo Fiorini.
---
 harbour/source/rtl/tget.prg | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/harbour/source/rtl/tget.prg b/harbour/source/rtl/tget.prg
index 5ef414d9ee..b19101667b 100644
--- a/harbour/source/rtl/tget.prg
+++ b/harbour/source/rtl/tget.prg
@@ -1079,7 +1079,7 @@ METHOD DeleteAll() CLASS Get
    case ::type == "N"
       xValue := 0
    case ::type == "D"
-      xValue := DToC( "" )
+      xValue := CToD( "" )
    case ::type == "L"
       xValue := .f.
    endcase