diff --git a/ueforth/Makefile b/ueforth/Makefile
index 11a5f7b..688339d 100644
--- a/ueforth/Makefile
+++ b/ueforth/Makefile
@@ -124,8 +124,9 @@ $(GEN):
 POSIX_BOOT =  common/boot.fs common/conditionals.fs common/vocabulary.fs \
               common/hide_calls.fs common/ansi.fs \
               posix/posix.fs posix/posix_highlevel.fs posix/termios.fs common/locals.fs \
-              common/utils.fs common/highlevel.fs common/filetools.fs posix/posix_desktop.fs \
-              common/tasks.fs common/streams.fs common/blocks.fs posix/telnetd.fs \
+              common/tasks.fs common/utils.fs common/highlevel.fs common/filetools.fs \
+              posix/posix_desktop.fs \
+              common/streams.fs common/blocks.fs posix/telnetd.fs \
               posix/autoboot.fs \
               common/fini.fs
 $(GEN)/posix_boot.h: common/source_to_string.js $(POSIX_BOOT) | $(GEN)
@@ -134,7 +135,7 @@ $(GEN)/posix_boot.h: common/source_to_string.js $(POSIX_BOOT) | $(GEN)
 WINDOWS_BOOT = common/boot.fs common/conditionals.fs common/vocabulary.fs \
                common/hide_calls.fs common/ansi.fs \
                windows/windows.fs windows/windows_highlevel.fs common/highlevel.fs \
-               common/utils.fs common/filetools.fs common/tasks.fs common/streams.fs \
+               common/tasks.fs common/utils.fs common/filetools.fs common/streams.fs \
                common/blocks.fs common/locals.fs \
                common/fini.fs
 $(GEN)/windows_boot.h: common/source_to_string.js $(WINDOWS_BOOT) | $(GEN)
diff --git a/ueforth/common/tasks.fs b/ueforth/common/tasks.fs
index 8b606db..8bb0191 100644
--- a/ueforth/common/tasks.fs
+++ b/ueforth/common/tasks.fs
@@ -31,8 +31,6 @@ forth definitions tasks also internals
    then
 ;
 
-: .tasks   task-list @ begin dup 2 cells - see. @ dup task-list @ = until drop ;
-
 DEFINED? ms-ticks [IF]
   : ms ( n -- ) ms-ticks >r begin pause ms-ticks r@ - over >= until rdrop drop ;
 [THEN]
diff --git a/ueforth/common/utils.fs b/ueforth/common/utils.fs
index 7ab44eb..66b19f2 100644
--- a/ueforth/common/utils.fs
+++ b/ueforth/common/utils.fs
@@ -59,3 +59,8 @@ forth definitions also internals
 : vlist   0 context @ @ begin dup >name-length while onlines dup see. >link repeat 2drop cr ;
 : words   0 context @ @ begin dup while onlines dup see. >link repeat 2drop cr ;
 only forth definitions
+
+( Extra Task Utils )
+tasks definitions also internals
+: .tasks   task-list @ begin dup 2 cells - see. @ dup task-list @ = until drop ;
+only forth definitions