diff --git a/src/os_unix.c b/src/os_unix.c
index 4fb3d1ad011240818e7cbca2d3e0e8055b9a4353..6d4d499d823b97fd829d7a536a0fbeac0dfafbc4 100644
--- a/src/os_unix.c
+++ b/src/os_unix.c
@@ -421,9 +421,10 @@ mch_inchar(buf, maxlen, wtime, tb_change_cnt)
 	/* Process the queued netbeans messages. */
 	netbeans_parse_messages();
 #endif
+#ifndef VMS  /* VMS: must try reading, WaitForChar() does nothing. */
 	/*
-	 * we want to be interrupted by the winch signal
-	 * or by an event on the monitored file descriptors
+	 * We want to be interrupted by the winch signal
+	 * or by an event on the monitored file descriptors.
 	 */
 	if (WaitForChar(-1L) == 0)
 	{
@@ -431,6 +432,7 @@ mch_inchar(buf, maxlen, wtime, tb_change_cnt)
 		handle_resize();
 	    return 0;
 	}
+#endif
 
 	/* If input was put directly in typeahead buffer bail out here. */
 	if (typebuf_changed(tb_change_cnt))
diff --git a/src/testdir/Make_vms.mms b/src/testdir/Make_vms.mms
index afeb9fad84ff56b29340d99012cc2795b2aa4f3e..f52e8f8b0c8274f69f8342c4e4e7d928437ccc15 100644
--- a/src/testdir/Make_vms.mms
+++ b/src/testdir/Make_vms.mms
@@ -4,7 +4,7 @@
 # Authors:	Zoltan Arpadffy, <arpadffy@polarhome.com>
 #		Sandor Kopanyi,  <sandor.kopanyi@mailbox.hu>
 #
-# Last change:  2009 Sep 11
+# Last change:  2010 Jul 29
 #
 # This has been tested on VMS 6.2 to 8.3 on DEC Alpha, VAX and IA64.
 # Edit the lines in the Configuration section below to select.
@@ -70,7 +70,7 @@ SCRIPT = test1.out  test2.out  test3.out  test4.out  test5.out  \
 	 test56.out test57.out test60.out \
 	 test61.out test62.out test63.out test64.out test65.out \
 	 test66.out test67.out test68.out test69.out test70.out \
-	 test71.out test72.out
+	 test71.out # test72.out
 
 .IFDEF WANT_GUI
 SCRIPT_GUI = test16.out