diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 99ad5c07de..68c6740653 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+20000126-12:50 GMT+1 Ignacio Ortiz <ignacio@fivetech.com>
+   * source/rtl/tget.prg
+     * Bug fixed on numeric gets with zero digits in his value
+
 2000-01-25 16:20 GMT-5 David G. Holm <dholm@ sd-llc.com>
 
    * source/rtl/itemapi.c
diff --git a/harbour/source/rtl/tget.prg b/harbour/source/rtl/tget.prg
index 25c087c887..a894cd4084 100644
--- a/harbour/source/rtl/tget.prg
+++ b/harbour/source/rtl/tget.prg
@@ -869,8 +869,8 @@ METHOD PutMask( xValue, lEdit ) CLASS TGet
             cBuffer := SubStr( cBuffer, 1, nFor - 1 ) + cChar + SubStr( cBuffer, nFor + 1 )
          endif
       next
-      if ( nAt := At( " ", cBuffer ) ) > 0
-         cBuffer := StrTran( cBuffer, "0", " ", nAt )
+      if cBuffer ==  Space( len( cBuffer ) - 1 ) + "0"
+         cBuffer := Space( len( cBuffer ) )
       endif
       if ::lDecRev
          cBuffer := StrTran( cBuffer, ",", Chr( 1 ) )