(mu_test): Upvar expect_out

 # -*- tcl -*-
 # This file is part of Mailutils testsuite.
-# Copyright (C) 2002, Free Software Foundation
+# Copyright (C) 2002, 2005, Free Software Foundation
 #  
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -519,6 +519,7 @@ proc mu_test { args } {
     global verbose
     global suppress_flag
     upvar timeout timeout
+    upvar expect_out expect_out
     
     set command [lindex $args 0]
     set pattern [lindex $args 1]