diff --git a/src/dudley/exe.epp b/src/dudley/exe.epp
index daa5d2e510..804cdefefa 100644
--- a/src/dudley/exe.epp
+++ b/src/dudley/exe.epp
@@ -2237,7 +2237,8 @@ static void drop_field( DUDLEY_FLD field)
 		X.RDB$RELATION_NAME EQ relation->rel_name->sym_string AND
 		X.RDB$FIELD_NAME EQ field->fld_name->sym_string
 		FOR Y IN RDB$RELATION_FIELDS WITH
-			Y.RDB$FIELD_NAME = X.RDB$BASE_FIELD if_any = true;
+			Y.RDB$FIELD_NAME = X.RDB$BASE_FIELD
+			if_any = true;
 		END_FOR 
 
 		if (!if_any) {
diff --git a/src/gpre/ada.cpp b/src/gpre/ada.cpp
index c5cc0bf972..c2cedaa229 100644
--- a/src/gpre/ada.cpp
+++ b/src/gpre/ada.cpp
@@ -24,7 +24,7 @@
 //
 //____________________________________________________________
 //
-//	$Id: ada.cpp,v 1.20 2003-09-11 02:13:46 brodsom Exp $
+//	$Id: ada.cpp,v 1.21 2003-09-12 08:55:47 robocop Exp $
 //
 
 #include "firebird.h"
@@ -1169,7 +1169,7 @@ static void gen_database( ACT action, int column)
 	TPB tpb_val;
 	REF reference;
 	GPRE_FLD field;
-	bool array_flag;
+	bool array_flag = false;
 
 	if (first_flag++ != 0)
 		return;