--- gas-defs.exp.org	2005-02-09 12:13:09.000000000 +0530
+++ gas-defs.exp	2005-02-09 12:21:01.000000000 +0530
@@ -59,6 +59,7 @@
     global srcdir
     global subdir
     global spawn_id
+    global gas_spawned
 
     verbose -log "Starting $AS $ASFLAGS $as_opts $prog" 2
     catch {
@@ -66,14 +67,20 @@
     } foo
     if ![regexp {^[0-9]+} $foo] then {
 	perror "Can't run $subdir/$prog: $foo"
+    } else {
+        set gas_spawned 1
     }
 }
 
 proc gas_finish { } {
     global spawn_id
+    global gas_spawned
 
-    catch "close"
-    catch "wait"
+    if $gas_spawned then {
+	    catch "close"
+	    catch "wait"
+    }
+    set gas_spawned 0
 }
 
 proc want_no_output { testname } {
@@ -165,7 +172,9 @@
     global target_vendor
     global target_os
     global stdoptlist
+    global gas_spawned
 
+    set gas_spawned 0
     case "$target_cpu" in {
 	"m68???"		{ set target_cpu_family m68k }
 	"i[3-7]86"		{ set target_cpu_family i386 }