diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 2e88c2de4a..d3b30f10db 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,8 @@
+20000503-19:25 GMT-8 Ron Pinkas <Ron@Profit-Master.com>
+
+   * source/compiler/harbour.c
+     * Corrcetd pVars->iUsed = 1 to pVars->iUsed |= 1 in hb_compVariableGetPos() so it won't override -1 value from StrongType()
+
 20000503-22:43 GMT+1 Victor Szakats <info@szelvesz.hu>
 
    * source/rtl/filesys.c
diff --git a/harbour/source/compiler/harbour.c b/harbour/source/compiler/harbour.c
index 38f79837a7..8ce4c1a66b 100644
--- a/harbour/source/compiler/harbour.c
+++ b/harbour/source/compiler/harbour.c
@@ -1099,10 +1099,8 @@ USHORT hb_compVariableGetPos( PVAR pVars, char * szVarName ) /* returns the orde
    {
       if( pVars->szName && ! strcmp( pVars->szName, szVarName ) )
       {
-         /* TODO: This is not the best place to push the variable type
-          * in some cases it will be called two times for the same variable
-          */
-         pVars->iUsed = 1;
+         /* Might be set to -1 by StrongType if so leave without change, otherwise set to 1. */
+         pVars->iUsed |= 1;
          return wVar;
       }
       else