From 4c8d9d70faee1e1e1084dfa5f9d73dd5ddb2c830 Mon Sep 17 00:00:00 2001
From: Lorenzo Fiorini <lorenzo.fiorini@gmail.com>
Date: Thu, 22 May 2008 10:19:12 +0000
Subject: [PATCH]

---
 harbour/source/common/hbstr.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/harbour/source/common/hbstr.c b/harbour/source/common/hbstr.c
index 5bbbc3ac73..66af96670a 100644
--- a/harbour/source/common/hbstr.c
+++ b/harbour/source/common/hbstr.c
@@ -337,7 +337,7 @@ static double hb_numPow10( int nPrecision )
       }
       else if( nPrecision > -16 )
       {
-         return 1.0 / s_dPow10[ ( unsigned int ) nPrecision ];
+         return 1.0 / s_dPow10[ ( unsigned int ) -nPrecision ];
       }
    }