--- gforth/tasker.fs	1996/05/07 16:15:23	1.2
+++ gforth/tasker.fs	1996/05/13 16:37:03	1.3
@@ -24,7 +24,9 @@ Create sleepers  sleepers A, sleepers A,
 
 \ USER' computes the task offset
 : user' ( 'user' -- n )
-  ' >body @ state @ IF  postpone Literal  THEN ; immediate
+    ' >body @ postpone literal ; immediate
+interpretation:
+    ' >body @ ;
 
 \ NEWTASK creates a new, sleeping task
 : NewTask ( n -- Task )  dup 2* 2* udp @ + dup