diff --git a/TESTS/ut__foxbin2prg.prg b/TESTS/ut__foxbin2prg.prg
index 7b72982..982e33f 100644
--- a/TESTS/ut__foxbin2prg.prg
+++ b/TESTS/ut__foxbin2prg.prg
@@ -455,9 +455,9 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 				*-- DATOS ESPERADOS
 				STORE 0 TO lnCodError_Esperado
 				SCATTER MEMO NAME loReg_Esperado
-				lcClass				= loReg_Esperado.CLASS
-				lcParent			= loReg_Esperado.PARENT
-				lcObjName			= loReg_Esperado.objName
+				lcClass				= LOWER(loReg_Esperado.CLASS)
+				lcParent			= LOWER(loReg_Esperado.PARENT)
+				lcObjName			= LOWER(loReg_Esperado.objName)
 
 				*-- TEST
 				IF FILE(lc_OutputFile)
@@ -473,7 +473,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 						ERROR 'No se encontró el registro de cabecera "' + UNIQUEID + '"'
 					ENDIF
 				ELSE
-					LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+					LOCATE FOR LOWER(CLASS)==lcClass AND LOWER(PARENT)==lcParent AND LOWER(objName)==lcObjName
 					IF NOT FOUND()
 						ERROR 'No se encontró el registro para CLASS=="' + lcClass + '" AND PARENT=="' + lcParent + '" AND objName=="' + lcObjName + '"'
 					ENDIF
@@ -704,9 +704,9 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 				*-- DATOS ESPERADOS
 				STORE 0 TO lnCodError_Esperado
 				SCATTER MEMO NAME loReg_Esperado
-				lcClass				= loReg_Esperado.CLASS
-				lcParent			= loReg_Esperado.PARENT
-				lcObjName			= loReg_Esperado.objName
+				lcClass				= LOWER(loReg_Esperado.CLASS)
+				lcParent			= LOWER(loReg_Esperado.PARENT)
+				lcObjName			= LOWER(loReg_Esperado.objName)
 
 				*-- TEST
 				IF FILE(lc_OutputFile)
@@ -722,7 +722,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 						ERROR 'No se encontró el registro de cabecera "' + UNIQUEID + '"'
 					ENDIF
 				ELSE
-					LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+					LOCATE FOR LOWER(CLASS)==lcClass AND LOWER(PARENT)==lcParent AND LOWER(objName)==lcObjName
 					IF NOT FOUND()
 						ERROR 'No se encontró el registro para CLASS=="' + lcClass + '" AND PARENT=="' + lcParent + '" AND objName=="' + lcObjName + '"'
 					ENDIF
@@ -786,9 +786,9 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 				*-- DATOS ESPERADOS
 				STORE 0 TO lnCodError_Esperado
 				SCATTER MEMO NAME loReg_Esperado
-				lcClass				= loReg_Esperado.CLASS
-				lcParent			= loReg_Esperado.PARENT
-				lcObjName			= loReg_Esperado.objName
+				lcClass				= LOWER(loReg_Esperado.CLASS)
+				lcParent			= LOWER(loReg_Esperado.PARENT)
+				lcObjName			= LOWER(loReg_Esperado.objName)
 
 				*-- TEST
 				IF FILE(lc_OutputFile)
@@ -804,7 +804,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 						ERROR 'No se encontró el registro de cabecera "' + UNIQUEID + '"'
 					ENDIF
 				ELSE
-					LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+					LOCATE FOR LOWER(CLASS)==lcClass AND LOWER(PARENT)==lcParent AND LOWER(objName)==lcObjName
 					IF NOT FOUND()
 						ERROR 'No se encontró el registro para CLASS=="' + lcClass + '" AND PARENT=="' + lcParent + '" AND objName=="' + lcObjName + '"'
 					ENDIF
@@ -868,9 +868,9 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 				*-- DATOS ESPERADOS
 				STORE 0 TO lnCodError_Esperado
 				SCATTER MEMO NAME loReg_Esperado
-				lcClass				= loReg_Esperado.CLASS
-				lcParent			= loReg_Esperado.PARENT
-				lcObjName			= loReg_Esperado.objName
+				lcClass				= LOWER(loReg_Esperado.CLASS)
+				lcParent			= LOWER(loReg_Esperado.PARENT)
+				lcObjName			= LOWER(loReg_Esperado.objName)
 
 				*-- TEST
 				IF FILE(lc_OutputFile)
@@ -886,7 +886,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 						ERROR 'No se encontró el registro de cabecera "' + UNIQUEID + '"'
 					ENDIF
 				ELSE
-					LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+					LOCATE FOR LOWER(CLASS)==lcClass AND LOWER(PARENT)==lcParent AND LOWER(objName)==lcObjName
 					IF NOT FOUND()
 						ERROR 'No se encontró el registro para CLASS=="' + lcClass + '" AND PARENT=="' + lcParent + '" AND objName=="' + lcObjName + '"'
 					ENDIF
diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index 481193e..bd8bc13 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -4267,7 +4267,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
 					toClase._PROTECTED		= .hiddenAndProtected_PAM( toClase )
 					toClase._METHODS		= .classMethods2Memo( toClase )
 					toClase._RESERVED1		= IIF( .c_Type = 'SCX', '', 'Class' )
-					toClase._RESERVED2		= IIF( .c_Type = 'VCX' OR toClase._Nombre == 'Dataenvironment', TRANSFORM( toClase._AddObject_Count + 1 ), '' )
+					toClase._RESERVED2		= IIF( .c_Type = 'VCX' OR PROPER(toClase._Nombre) == 'Dataenvironment', TRANSFORM( toClase._AddObject_Count + 1 ), '' )
 					toClase._RESERVED3		= .defined_PAM2Memo( toClase )
 					toClase._RESERVED4		= toClase._ClassIcon
 					toClase._RESERVED5		= toClase._ProjectClassIcon