diff --git a/basis/io/files/windows/windows.factor b/basis/io/files/windows/windows.factor
index afdc17359b..566f8c7a8c 100755
--- a/basis/io/files/windows/windows.factor
+++ b/basis/io/files/windows/windows.factor
@@ -396,7 +396,7 @@ M: windows home
     ] if ;
 
 : alternate-file-streams ( path -- streams )
-    file-streams [ cStreamName>> alien>native-string "::$DATA" = not ] filter ;
+    file-streams [ cStreamName>> alien>native-string "::$DATA" = ] reject ;
 
 : alternate-file-streams? ( path -- streams )
     alternate-file-streams empty? not ;
diff --git a/basis/peg/ebnf/ebnf.factor b/basis/peg/ebnf/ebnf.factor
index 5bf5604dd6..a93314702a 100644
--- a/basis/peg/ebnf/ebnf.factor
+++ b/basis/peg/ebnf/ebnf.factor
@@ -86,7 +86,7 @@ C: <ebnf> ebnf
 
 : filter-hidden ( seq -- seq )
     ! Remove elements that produce no AST from sequence
-    [ ebnf-ensure-not? ] reject [ ebnf-ensure? not ] filter ;
+    [ ebnf-ensure-not? ] reject [ ebnf-ensure? ] reject ;
 
 : syntax ( string -- parser )
     ! Parses the string, ignoring white space, and