diff --git a/harbour/source/vm/hvm.c b/harbour/source/vm/hvm.c index 4678c5812a..4f301e1b7c 100644 --- a/harbour/source/vm/hvm.c +++ b/harbour/source/vm/hvm.c @@ -4010,9 +4010,9 @@ static void hb_vmPushAliasedVar( PHB_SYMB pSym ) if( HB_IS_STRING( pAlias ) ) { - char * szAlias = hb_strUpper( pAlias->item.asString.value, pAlias->item.asString.length ); + char * szAlias = pAlias->item.asString.value; - if( szAlias[ 0 ] == 'M' && szAlias[ 1 ] == '\0' ) + if( ( szAlias[ 0 ] == 'M' || szAlias[ 0 ] == 'm' ) && szAlias[ 1 ] == '\0' ) { /* M->variable */ hb_memvarGetValue( pAlias, pSym ); }