Index: CREDITS
===================================================================
--- CREDITS	(revision 37547)
+++ CREDITS	(working copy)
@@ -168,6 +168,7 @@
 
 N: Brad Gilbert
 D: Add test for sysinfo op.
+D: Added Win9x spawnw check to various tests
 E: b2gills@gmail.com
 
 N: Bram Geron
Index: t/pmc/sys.t
===================================================================
--- t/pmc/sys.t	(revision 37547)
+++ t/pmc/sys.t	(working copy)
@@ -10,6 +10,7 @@
 use Parrot::Test::Util 'create_tempfile';
 
 use Parrot::Test tests => 2;
+use Parrot::Config;
 
 =head1 NAME
 
@@ -25,6 +26,22 @@
 
 =cut
 
+
+our $test_err;
+if ( $PConfig{osname} eq 'MSWin32' ) {
+    if( eval { require Win32; } ){
+        if( Win32::GetOSVersion() <= 1 ){
+            $test_err = "requires newer OS than Win9x";
+        }
+    }else{
+        warn "This test may halt Win9x systems";
+    }
+}
+
+SKIP:
+{
+    skip $test_err, 1 if $test_err;
+
 my (undef, $temp_pir) = create_tempfile( SUFFIX => '.pir', UNLINK => 1 );
 
 pir_output_is( <<"CODE", <<OUT, "spawnw, _config" );
@@ -57,6 +74,8 @@
 0
 OUT
 
+}
+
 pir_output_is( <<'CODE', <<'OUT', "conf_hash is read-only")
 .sub _test :main
     .local pmc conf_hash
Index: t/op/spawnw.t
===================================================================
--- t/op/spawnw.t	(revision 37547)
+++ t/op/spawnw.t	(working copy)
@@ -7,6 +7,7 @@
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
 use Parrot::Test tests => 7;
+use Parrot::Config;
 
 =head1 NAME
 
@@ -41,6 +42,21 @@
 
 =cut
 
+our $test_err;
+if ( $PConfig{osname} eq 'MSWin32' ) {
+    if( eval { require Win32; } ){
+        if( Win32::GetOSVersion() <= 1 ){
+            $test_err = "requires newer OS than Win9x";
+        }
+    }else{
+        warn "This test may halt Win9x systems";
+    }
+}
+
+SKIP:
+{
+    skip $test_err, 7 if $test_err;
+
 # perl command coded this way to avoid platform
 # quoting issue.
 
@@ -166,6 +182,8 @@
 return code: 10
 OUTPUT
 
+}
+
 # Local Variables:
 #   mode: cperl
 #   cperl-indent-level: 4