diff --git a/StdEnv 64 Changed Files/StdFile.icl b/StdEnv 64 Changed Files/StdFile.icl
index 1de859184f8b3e381e2afae4d3613998111df4ea..e0d9d761b8561ba458313a0a4aca8490f86b18e6 100644
--- a/StdEnv 64 Changed Files/StdFile.icl	
+++ b/StdEnv 64 Changed Files/StdFile.icl	
@@ -495,3 +495,10 @@ instance FileEnv World where
 			 }
 
 create_files :== Files;
+
+fflush :: !*File -> (!Bool,!*File)
+fflush f = code {
+    .d 0 2 f
+    jsr flushF
+    .o 0 3 bf
+}