===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/io/tcpf.c,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -p -r1.20 -r1.21
--- OpenXM_contrib2/asir2000/io/tcpf.c	2000/11/15 08:47:20	1.20
+++ OpenXM_contrib2/asir2000/io/tcpf.c	2000/11/15 09:18:01	1.21
@@ -44,7 +44,7 @@
  * OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
- * $OpenXM: OpenXM_contrib2/asir2000/io/tcpf.c,v 1.19 2000/11/15 01:20:27 noro Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/io/tcpf.c,v 1.20 2000/11/15 08:47:20 noro Exp $ 
 */
 #if INET
 #include "ca.h"
@@ -1141,9 +1141,6 @@ Q *rp;
 	valid_mctab_index(index);
 	s = m_c_tab[index].m;
 	ox_send_cmd(s,SM_shutdown);
-#if defined(VISUAL)
-	Sleep(1000);
-#endif
 	free_iofp(s);
 #if !defined(VISUAL)
 	s = m_c_tab[index].c;
@@ -1184,6 +1181,9 @@ void shutdown_all() {
 			continue;
 		s = m_c_tab[index].m;
 		ox_send_cmd(s,SM_shutdown);
+#if defined(VISUAL)
+	Sleep(1000);
+#endif
 		free_iofp(s);
 #if !defined(VISUAL)
 		s = m_c_tab[index].c;