diff --git a/basis/io/files/windows/windows.factor b/basis/io/files/windows/windows.factor
index 6998bdd699..4bd2c90879 100644
--- a/basis/io/files/windows/windows.factor
+++ b/basis/io/files/windows/windows.factor
@@ -412,5 +412,5 @@ M: windows home
 : alternate-file-streams ( path -- streams )
     file-streams [ cStreamName>> alien>native-string "::$DATA" = ] reject ;
 
-: alternate-file-streams? ( path -- streams )
+: alternate-file-streams? ( path -- ? )
     alternate-file-streams empty? not ;