diff --git a/lib/POE/Loop/Select.pm b/lib/POE/Loop/Select.pm
index a8e358074..5ff0a16e1 100644
--- a/lib/POE/Loop/Select.pm
+++ b/lib/POE/Loop/Select.pm
@@ -12,8 +12,12 @@ use vars qw($VERSION);
 $VERSION = '1.367'; # NOTE - Should be #.### (three decimal places)
 
 =for poe_tests
-
-sub skip_tests { return }
+sub skip_tests {
+  my($test_name) = @_;
+  return "$test_name tests hang on $^O" if (
+    $test_name eq 'wheel_tail' && $^O eq "MSWin32"
+  );
+}
 
 =cut
 
diff --git a/t/10_units/04_drivers/01_sysrw.t b/t/10_units/04_drivers/01_sysrw.t
index d7caa909b..4690be3b1 100644
--- a/t/10_units/04_drivers/01_sysrw.t
+++ b/t/10_units/04_drivers/01_sysrw.t
@@ -98,6 +98,11 @@ ok( $d->get_out_messages_buffered() == 1, "one message buffered" );
 
 # Remaining tests require some live handles.
 
+SKIP: { 
+if ($^O eq "MSWin32") {
+  skip "remaining tests hang on $^O", 6;
+}
+  
 my ($r, $w) = POE::Pipe::OneWay->new();
 die "can't open a pipe: $!" unless $r;
 
@@ -165,6 +170,8 @@ while (flush_remaining_buffer($d, $w)) {
   close(SAVE_STDERR) or die $!;
 }
 
+} # SKIP
+
 exit 0;
 
 # Buffer data, and flush it, until the pipe refuses to hold more data.