*** remote.exp.~1~	Thu Feb 28 10:44:49 2002
--- remote.exp	Thu Feb 28 02:31:07 2002
*************** proc check_for_board_status  { variable 
*** 1057,1063 ****
      if [regexp "(^|\[\r\n\])\\*\\*\\* EXIT code" $output] {
  	regsub "^.*\\*\\*\\* EXIT code " $output "" result;
  	regsub "\[\r\n\].*$" $result "" result;
! 	regsub -all "(^|\[\r\n\])\\*\\*\\* EXIT code \[^\r\n\]*(\[\r\n\]\[\r\n\]?|$)" $output "" output;
  	regsub "^\[^0-9\]*" $result "" result
  	regsub "\[^0-9\]*$" $result "" result
  	verbose "got board status $result" 3
--- 1057,1063 ----
      if [regexp "(^|\[\r\n\])\\*\\*\\* EXIT code" $output] {
  	regsub "^.*\\*\\*\\* EXIT code " $output "" result;
  	regsub "\[\r\n\].*$" $result "" result;
! 	regsub -all "(^|\r?\n)\\*\\*\\* EXIT code \[^\r\n\]*(\r?\n|$)" $output "" output;
  	regsub "^\[^0-9\]*" $result "" result
  	regsub "\[^0-9\]*$" $result "" result
  	verbose "got board status $result" 3