X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=Tasks%2FmTaskTask.icl;h=845c07724610f11840b731cad199f89b4f84b77b;hb=09b207a39b7791098daafd7d87c3ad9d3db3e19f;hp=52191b56d3670a55cd2b6bede9703aa3a88b0f48;hpb=bfbcdc683846195fbe720f4b3c38f3b0604c8f22;p=mTask.git

diff --git a/Tasks/mTaskTask.icl b/Tasks/mTaskTask.icl
index 52191b5..845c077 100644
--- a/Tasks/mTaskTask.icl
+++ b/Tasks/mTaskTask.icl
@@ -28,7 +28,7 @@ sendTaskToDevice wta mTask (device, timeout) =
 
 		toSDSRecords :: [MTaskMSGSend] BCState MTaskDevice -> Task [MTaskShare]
 		toSDSRecords s st device = sequence ""
-			[makeShare wta device sdsi sdsval
+			[makeShare wta device.deviceName sdsi sdsval
 			\\{sdsi,sdspub,sdsval}<-st.sdss
 			, (MTSds sdsi` _)<-s
 			| sdsi == sdsi`]