X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=miTask.icl;h=0e7a63125cbbd2125351b114c39289e8dca379ac;hb=a2df77cbda43d5a24eeb8ac7db7452baae9f18aa;hp=b0378c1f4dd01931c9bdda52b8b4517a150217d7;hpb=4f5bec7a819e8a8ee9ee30b761c2159df0a7d8a4;p=mTask.git

diff --git a/miTask.icl b/miTask.icl
index b0378c1..0e7a631 100644
--- a/miTask.icl
+++ b/miTask.icl
@@ -67,7 +67,7 @@ mTaskManager = startupDevices >>| anyTask
 //					MTSDSAck i = traceValue (toString m) @! ()
 //					MTSDSDelAck i = traceValue (toString m) @! ()
 					MTPub i val = updateShare i val
-					MTTaskAck i = deviceTaskAcked device i
+					MTTaskAck i mem = deviceTaskAcked device i mem
 					MTTaskDelAck i = deviceTaskDeleteAcked device i @! ()
 					MTDevSpec s = deviceAddSpec device s @! ()
 					_ = treturn ()