From 238c57c5007dcf1ec4aa671d6dd4718d66bc554d Mon Sep 17 00:00:00 2001
From: Ignacio Ortiz de Zuniga <ignacio@fivetech.com>
Date: Tue, 13 Feb 2001 10:28:38 +0000
Subject: [PATCH] + minus sing support fixed.

---
 harbour/source/rtl/tget.prg | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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