Installscript project can't write to 64 registry

[sbrown]

I'm sure I''m missing something simple but I don't see it.

Why does this only write to the Wow6432Node registry key??
Pure Installscript 2011 project.

function OnBegin()
NUMBER i, nAutoSize, nResult;
STRING sTemp;
begin

nAutoSize = -1;
// TODO: Perform custom initialization steps, check requirements, etc.
nResult = Disable (WOW64FSREDIRECTION);
nResult = REGDB_OPTIONS = REGDB_OPTIONS | REGDB_OPTION_WOW64_64KEY;
nResult = RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);


if (RegDBKeyExist(PROPERTY_KEY) < 0) then
nResult = RegDBCreateKeyEx(PROPERTY_KEY, "");
if nResult <0 then
MessageBox(FormatMessage(nResult), SEVERE);
endif;
endif;

nResult = RegDBSetKeyValueEx(PROPERTY_KEY, "test1", REGDB_STRING, "sb1", nAutoSize);
nResult = RegDBSetKeyValueEx(PROPERTY_KEY, "test2", REGDB_STRING, "sb2", nAutoSize);
nResult = RegDBSetKeyValueEx(PROPERTY_KEY, "test3", REGDB_STRING, "sb3", nAutoSize);


Enable(WOW64FSREDIRECTION);

end;

[#2]

function OnBegin()
NUMBER i, nAutoSize, nResult;
STRING sTemp;
begin

nAutoSize = -1;
// TODO: Perform custom initialization steps, check requirements, etc.
//nResult = Disable (WOW64FSREDIRECTION);
REGDB_OPTIONS = REGDB_OPTION_WOW64_64KEY;
nResult = RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);


if (RegDBKeyExist(PROPERTY_KEY) < 0) then
nResult = RegDBCreateKeyEx(PROPERTY_KEY, "");
if nResult <0 then
MessageBox(FormatMessage(nResult), SEVERE);
endif;
endif;

nResult = RegDBSetKeyValueEx(PROPERTY_KEY, "test1", REGDB_STRING, "sb1", nAutoSize);
nResult = RegDBSetKeyValueEx(PROPERTY_KEY, "test2", REGDB_STRING, "sb2", nAutoSize);
nResult = RegDBSetKeyValueEx(PROPERTY_KEY, "test3", REGDB_STRING, "sb3", nAutoSize);


//Enable(WOW64FSREDIRECTION);

end;

[sbrown]

Thanks I knew it would be something simple that I just wasn't seeing.
No return value for regdb_options kept biteing me.