diff --git a/ueforth/common/tasks.fs b/ueforth/common/tasks.fs
index 8bb0191..8b606db 100644
--- a/ueforth/common/tasks.fs
+++ b/ueforth/common/tasks.fs
@@ -31,6 +31,8 @@ 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]