diff --git a/tools/amalg.janet b/tools/amalg.janet
index c571a7e6..c8cf35f9 100644
--- a/tools/amalg.janet
+++ b/tools/amalg.janet
@@ -10,3 +10,6 @@
 # Body
 (each path (tuple/slice (dyn :args) 1)
   (print (slurp path)))
+
+# maybe will help
+(:flush stdout)
diff --git a/tools/removecr.janet b/tools/removecr.janet
index 305def6b..97016569 100644
--- a/tools/removecr.janet
+++ b/tools/removecr.janet
@@ -2,8 +2,6 @@
 # windows may add bad line endings, we can just force removal
 # with this script.
 (def fname ((dyn :args) 1))
-(with [f (file/open fname :rb+)]
-  (def source (:read f :all))
-  (def new-source (string/replace-all "\r" "" source))
-  (:seek f :set 0)
-  (:write f new-source))
+(def input (slurp fname :rb))
+(def new-source (string/replace-all "\r" "" source))
+(spit fname new-source :wb)