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