X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskInterpret.dcl;fp=mTaskInterpret.dcl;h=63778bd54c8bffbd84b02e4f5e6cdf14523f310f;hb=d963745f754d618bd6a729633050c24831e727e0;hp=29e1fb95b6e98a089fedd10317b105aa9894383b;hpb=7be7221d08489763405ec243b3b4c38d65598d43;p=mTask.git

diff --git a/mTaskInterpret.dcl b/mTaskInterpret.dcl
index 29e1fb9..63778bd 100644
--- a/mTaskInterpret.dcl
+++ b/mTaskInterpret.dcl
@@ -21,7 +21,7 @@ from Generics.gCons import class gCons, generic conses, generic consName, generi
 	| MTEmpty
 
 :: MTaskMSGSend
-	= MTTask MTaskInterval String
+	= MTTask MTaskInterval Char String
 	| MTTaskDel Int
 	| MTSds Int BCValue
 	| MTUpd Int BCValue