diff --git a/basis/compiler/tests/alien.factor b/basis/compiler/tests/alien.factor
index 52ad0bf1a4..3589ab7e89 100755
--- a/basis/compiler/tests/alien.factor
+++ b/basis/compiler/tests/alien.factor
@@ -890,9 +890,9 @@ os windows? [
 
     FUNCTION: bool-and-ptr ffi_test_61 ( ) ;
 
-    {
-        S{ bool-and-ptr { b t } { ptr f } }
-    } [ ffi_test_61 ] unit-test
+    ! { S{ bool-and-ptr { b t } { ptr f } } } [ ffi_test_61 ] unit-test
+    { t } [ ffi_test_61 bool-and-ptr? ] unit-test
+    { { t f } } [ ffi_test_61 [ b>> ] [ ptr>> ] bi 2array ] unit-test
 
 ] unless