From 9caf854e0ce9903c61dc81f8fa93a18d875999f3 Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Sun, 19 Dec 2021 22:59:51 +0900
Subject: [PATCH] create file with mode 0644

---
 bootstrap.fs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bootstrap.fs b/bootstrap.fs
index 539276a..4984dcd 100644
--- a/bootstrap.fs
+++ b/bootstrap.fs
@@ -2464,7 +2464,7 @@ BLOCK-SIZE remaining-size  !
 6 constant SYS-CLOSE
 
 : (open) ( c-addr fam -- fd )
-    swap SYS-OPEN syscall2
+    %110100100 .s -rot swap SYS-OPEN syscall3
 ;
 
 : (close) ( obj -- n )