diff --git a/harbour/source/vm/hvm.c b/harbour/source/vm/hvm.c
index a716f662c8..cb4c74d73f 100644
--- a/harbour/source/vm/hvm.c
+++ b/harbour/source/vm/hvm.c
@@ -3216,7 +3216,7 @@ static void hb_vmArrayGen( ULONG ulElements ) /* generates an ulElements Array a
    itArray.type = HB_IT_NIL;
    hb_arrayNew( &itArray, ulElements );
    for( ulPos = 0; ulPos < ulElements; ulPos++ )
-      hb_itemCopy( itArray.item.asArray.value->pItems + ulPos, hb_stackItemFromTop( ulPos - ulElements ) );
+      hb_itemCopy( itArray.item.asArray.value->pItems + ulPos, hb_stackItemFromTop( ( signed ) ( ulPos - ulElements ) ) );
 
    for( ulPos = 0; ulPos < ulElements; ulPos++ )
       hb_stackPop();