Index: server/cityturn.c
===================================================================
RCS file: /home/freeciv/CVS/freeciv/server/cityturn.c,v
retrieving revision 1.189
diff -u -r1.189 cityturn.c
--- server/cityturn.c	2002/05/07 07:40:54	1.189
+++ server/cityturn.c	2002/05/09 13:27:57
@@ -973,10 +973,10 @@
 		    _("Game: %s boosts research, "
 		      "you gain 2 immediate advances."),
 		    improvement_types[B_DARWIN].name);
-      found_new_tech(pplayer, pplayer->research.researching, TRUE, TRUE);
       do_free_cost(pplayer);
       found_new_tech(pplayer, pplayer->research.researching, TRUE, TRUE);
       do_free_cost(pplayer);
+      found_new_tech(pplayer, pplayer->research.researching, TRUE, TRUE);
     }
     if (space_part && pplayer->spaceship.state == SSHIP_NONE) {
       notify_player_ex(NULL, pcity->x, pcity->y, E_SPACESHIP,
Index: server/unittools.c
===================================================================
RCS file: /home/freeciv/CVS/freeciv/server/unittools.c,v
retrieving revision 1.175
diff -u -r1.175 unittools.c
--- server/unittools.c	2002/05/07 07:40:55	1.175
+++ server/unittools.c	2002/05/09 13:28:00
@@ -2331,12 +2331,12 @@
 				    " from ancient scrolls of wisdom."),
 		   get_nation_name_plural(pplayer->nation), tech_name);
 
+  do_free_cost(pplayer);
   if (!is_future_tech(new_tech)) {
     found_new_tech(pplayer, new_tech, FALSE, TRUE);
   } else {
     found_new_future_tech(pplayer);
   }
-  do_free_cost(pplayer);
 }
 
 /**************************************************************************