diff --git a/gcc/cobol/parse_ante.h b/gcc/cobol/parse_ante.h
index e48035f788fcd31050334c72f530cb9dfac61ba9..c8c8c1b8b4677e674f5f6b52e38b568353f54332 100644
--- a/gcc/cobol/parse_ante.h
+++ b/gcc/cobol/parse_ante.h
@@ -322,7 +322,7 @@ struct evaluate_elem_t {
       : oper(eq_op)
       , subject(subject)
       , object(NULL)
-      , cond( new_temporary(FldConditional) )
+      , cond( keep_temporary(FldConditional) )
     {}
 
     cbl_field_t * object_set( cbl_field_t *obj, relop_t op ) {
@@ -372,7 +372,7 @@ void dump() const {
 
   explicit evaluate_elem_t( const char skel[] )
     : nother(0)
-    , result( new_temporary(FldConditional) )
+    , result( keep_temporary(FldConditional) )
     , pcase( cases.end() )
   {
     static const cbl_label_t protolabel = { .type = LblEvaluate };
@@ -743,7 +743,6 @@ static T* use_any( list<T>& src, T *tgt) {
 }
 
 class evaluate_t : public std::list<evaluate_elem_t> {
-  cbl_field_t *zero_field;
 public:
   cbl_label_t *label() { assert(!empty()); return &this->back().label; }
 
@@ -754,9 +753,6 @@ public:
   }
   void free()  { assert(!empty()); this->pop_back(); }
 
-  cbl_field_t *zero( cbl_field_t *z ) { return zero_field = z; }
-  cbl_field_t *zero() const { return zero_field; }
-
   void dump() const {
     warnx("last of %zu evaluation elements (line %d):", size(), yylineno);
     if( !empty() ) back().dump();
@@ -1434,7 +1430,7 @@ static class current_t {
   static void declarative_execute( cbl_label_t *eval ) {
     if( !eval ) {
       if( !enabled_exceptions.empty() ) {
-        static auto index = new_temporary(FldNumericBin5);
+        static auto index = keep_temporary(FldNumericBin5);
         parser_match_exception(index, NULL);
       }
       return;