diff --git a/basis/tools/deploy/test/test.factor b/basis/tools/deploy/test/test.factor
old mode 100644
new mode 100755
index 28916033d4..6a6f9cf8fd
--- a/basis/tools/deploy/test/test.factor
+++ b/basis/tools/deploy/test/test.factor
@@ -12,7 +12,11 @@ IN: tools.deploy.test
 
 : small-enough? ( n -- ? )
     [ "test.image" temp-file file-info size>> ]
-    [ cell 4 / * cpu ppc? [ 100000 + ] when ] bi*
+    [
+        cell 4 / *
+        cpu ppc? [ 100000 + ] when
+        os windows? [ 150000 + ] when
+    ] bi*
     <= ;
 
 : run-temp-image ( -- )
diff --git a/basis/windows/dinput/constants/constants.factor b/basis/windows/dinput/constants/constants.factor
index e0bfafc5c4..b67b5fa08f 100755
--- a/basis/windows/dinput/constants/constants.factor
+++ b/basis/windows/dinput/constants/constants.factor
@@ -49,7 +49,7 @@ MEMO: heap-size* ( c-type -- n ) heap-size ;
     } cleave
     DIOBJECTDATAFORMAT <struct-boa> ;
 
-:: malloc-DIOBJECTDATAFORMAT-array ( struct array -- alien )
+:: make-DIOBJECTDATAFORMAT-array ( struct array -- alien )
     [let | alien [ array length malloc-DIOBJECTDATAFORMAT-array ] |
         array [| args i |
             struct args <DIOBJECTDATAFORMAT>
@@ -60,7 +60,7 @@ MEMO: heap-size* ( c-type -- n ) heap-size ;
 
 : <DIDATAFORMAT> ( dwFlags dwDataSize struct rgodf-array -- alien )
     [ DIDATAFORMAT heap-size DIOBJECTDATAFORMAT heap-size ] 4 ndip
-    [ nip length ] [ malloc-DIOBJECTDATAFORMAT-array ] 2bi
+    [ nip length ] [ make-DIOBJECTDATAFORMAT-array ] 2bi
     DIDATAFORMAT <struct-boa> ;
 
 : initialize ( symbol quot -- )