diff --git a/oscar64/InterCode.cpp b/oscar64/InterCode.cpp
index 3167274..edd2991 100644
--- a/oscar64/InterCode.cpp
+++ b/oscar64/InterCode.cpp
@@ -22877,7 +22877,7 @@ void InterCodeProcedure::Close(void)
 {
 	GrowingTypeArray	tstack(IT_NONE);
 
-	CheckFunc = !strcmp(mIdent->mString, "bar");
+	CheckFunc = !strcmp(mIdent->mString, "foo");
 	CheckCase = false;
 
 	mEntryBlock = mBlocks[0];
diff --git a/oscar64/Parser.cpp b/oscar64/Parser.cpp
index d35e84e..d5615d8 100644
--- a/oscar64/Parser.cpp
+++ b/oscar64/Parser.cpp
@@ -6293,7 +6293,10 @@ Expression* Parser::ParseCastExpression(Expression* exp)
 					else
 					{
 						Expression* cexp = new Expression(mScanner->mLocation, EX_CONSTRUCT);
-						cexp->mLeft = iexp;
+						Expression* lexp = new Expression(mScanner->mLocation, EX_LIST);
+						lexp->mLeft = iexp;
+						lexp->mRight = nullptr;
+						cexp->mLeft = lexp;
 						cexp->mRight = nexp;
 						cexp->mDecType = vdec->mBase;