--- a/src/parse.y	Mon Mar 23 18:21:25 2009 -0400
+++ b/src/parse.y	Mon Mar 23 19:29:01 2009 -0400
@@ -2528,7 +2528,10 @@
 
   curr_fcn_ptr = script;
 
-  symbol_table::clear_forced_variables ();
+  // Unmark any symbols that may have been tagged as local variables
+  // while parsing (for example, by force_local_variable in lex.l).
+
+  symbol_table::unmark_forced_variables ();
 }
 
 // Begin defining a function.
@@ -2708,10 +2711,11 @@
 	  retval = new tree_function_def (fcn);
 	}
 
-      // Clear any local variables that may have been added while
-      // parsing (for example, by force_local_variable in lex.l). 
-
-      symbol_table::clear_forced_variables (fcn->scope ());
+      // Unmark any symbols that may have been tagged as local
+      // variables while parsing (for example, by force_local_variable
+      // in lex.l).
+
+      symbol_table::unmark_forced_variables (fcn->scope ());
     }
 
   return retval;