Allow / in filenames

1 files changed, 1 insertions, 1 deletions

diff --git a/sil.icl b/sil.icl
index bb39f1e..77b5322 100644
--- a/sil.icl
+++ b/sil.icl
@@ -106,7 +106,7 @@ where
 		)
 
 	isFilename :: (String -> Bool)
-	isFilename = all (\c -> isAlphanum c || isMember c ['.']) o fromString
+	isFilename = all (\c -> isAlphanum c || isMember c ['./']) o fromString
 
 	finish :: !*File !*File !*World -> *World
 	finish io err w