diff --git a/extra/io/buffers/buffers.factor b/extra/io/buffers/buffers.factor
index f26fe50d79..ef12543d52 100755
--- a/extra/io/buffers/buffers.factor
+++ b/extra/io/buffers/buffers.factor
@@ -14,7 +14,7 @@ TUPLE: buffer size ptr fill pos ;
     dup buffer-ptr free  f swap set-buffer-ptr ;
 
 : buffer-reset ( n buffer -- )
-    [ set-buffer-fill ] keep 0 swap set-buffer-pos ;
+    0 swap { set-buffer-fill set-buffer-pos } set-slots ;
 
 : buffer-consume ( n buffer -- )
     [ buffer-pos + ] keep
diff --git a/extra/io/monitor/monitor.factor b/extra/io/monitor/monitor.factor
index fe33045e01..11d1b6ecf9 100755
--- a/extra/io/monitor/monitor.factor
+++ b/extra/io/monitor/monitor.factor
@@ -20,7 +20,7 @@ TUPLE: monitor queue closed? ;
 HOOK: fill-queue io-backend ( monitor -- assoc )
 
 : changed-file ( changed path -- )
-    namespace [ swap add ] change-at ;
+    namespace [ append ] change-at ;
 
 : dequeue-change ( assoc -- path changes )
     delete-any prune natural-sort >array ;
diff --git a/extra/io/windows/nt/monitor/monitor.factor b/extra/io/windows/nt/monitor/monitor.factor
index 1be91263c4..f2cc4ef92a 100755
--- a/extra/io/windows/nt/monitor/monitor.factor
+++ b/extra/io/windows/nt/monitor/monitor.factor
@@ -70,7 +70,8 @@ M: windows-nt-io <monitor> ( path recursive? -- monitor )
         FILE_NOTIFY_INFORMATION-FileName
         FILE_NOTIFY_INFORMATION-FileNameLength
         FILE_NOTIFY_INFORMATION-Action
-    } get-slots >r memory>u16-string path+ r> parse-action swap ;
+    } get-slots parse-action 1array -rot
+    memory>u16-string path+ ;
 
 : (changed-files) ( directory buffer -- )
     2dup parse-file-notify changed-file