diff --git a/harbour/source/rtl/tget.prg b/harbour/source/rtl/tget.prg
index 7f5d0bd41c..bd828a2cde 100644
--- a/harbour/source/rtl/tget.prg
+++ b/harbour/source/rtl/tget.prg
@@ -870,7 +870,7 @@ METHOD Input( cChar ) CLASS Get
             cChar := ""
          endif
       case cPic == "9"
-         if ! IsDigit( cChar )
+         if ! IsDigit( cChar ) .and. cChar != "-"
             cChar := ""
          endif
       case cPic == "#"
@@ -1110,4 +1110,4 @@ return Self
 /* Not sure it should be keeped here ... (JFL)           */
 /* But does'nt annoy me                                  */
 CLASS TGet Inherit GET
-ENDCLASS
+ENDCLASS
\ No newline at end of file