diff --git a/extra/file-monitor/file-monitor.factor b/extra/file-monitor/file-monitor.factor
index 4010917438..a0306644c1 100644
--- a/extra/file-monitor/file-monitor.factor
+++ b/extra/file-monitor/file-monitor.factor
@@ -16,6 +16,6 @@ IN: file-monitor
 : file-monitor-main ( -- )
     command-line get ?first current-directory get or
     dup "Monitoring %s\n" printf flush
-    [ t <monitor> file-monitor-loop ] with-monitors ;
+    [ t [ file-monitor-loop ] with-monitor ] with-monitors ;
 
 MAIN: file-monitor-main