--- a/build-gnome2	Tue Feb 17 18:20:11 2004 +0000
+++ b/build-gnome2	Tue Feb 17 21:33:31 2004 +0000
@@ -605,6 +605,18 @@
     return ($rpm);
 }
 
+sub spec_id_of ($) {
+    my $name = shift;
+
+    for (my $i = 0; $i <= $#specs_to_build; $i++) {
+	if ($specs_to_build[$i]->{name} eq $name) {
+	    return $i;
+	}
+    }
+
+    return undef;
+}
+
 sub install_good_rpms ($) {
     my $spec_id = shift;
     my $spec = $specs_to_build[$spec_id];
@@ -1075,7 +1087,7 @@
 	    if (!$this_result) {
 		if (defined ($the_good_build_dir)) {
 		    msg_info (0, "Attempting to use a known good rpm");
-		    $this_result = install_good_rpms ($dep);
+		    $this_result = install_good_rpms (spec_id_of ($dep));
 		}
 		if (! $this_result) {
 		    msg_warning (1, "$spec->{name} requires $dep");