fix from upstream:

2004-03-05  Daniel Jacobowitz  <drow@mvista.com>
                                                                                
	* lib/remote.exp (standard_spawn): Fix rsh username support.

diff --git a/lib/remote.exp b/lib/remote.exp
index b57276e..cdec0d2 100644
--- a/lib/remote.exp
+++ b/lib/remote.exp
@@ -860,19 +860,18 @@ proc standard_spawn { dest commandline } {
         set RSH [board_info $dest rsh_prog]
     }
 
-    if ![board_info $dest exists username] {
-        set rsh_useropts ""
-    } else {
-        set rsh_useropts "-l $username"
-    }
-
     if [board_info $dest exists hostname] {
 	set remote [board_info $dest hostname]
     } else {
 	set remote $dest
     }
 
-    spawn $RSH $rsh_useropts $remote $commandline
+    if ![board_info $dest exists username] {
+        spawn $RSH $remote $commandline
+    } else {
+        spawn $RSH -l [board_info $dest username] $remote $commandline
+    }
+
     set board_info($dest,fileid) $spawn_id
     return $spawn_id
 }
@@ -1257,6 +1256,8 @@ proc remote_expect { board timeout args } {
     }
 
     if {$code == 1} {
+        if {[info exists string]} {send_user "ERROR OCCURED: $errorInfo $errorCode $string"}
+
 	if { $error_sect != "" } {
 	    set code [catch {uplevel $error_sect} string]
 	} else {