@@ -70,12 +70,12 @@
 
 	return true;
 }
 
 bool
-of_thread_new(of_thread_t *thread, void (*function)(id), id object,
-    const of_thread_attr_t *attr)
+of_thread_new(of_thread_t *thread, const char *name, void (*function)(id),
+    id object, const of_thread_attr_t *attr)
 {
 	OFMutableData *tags = nil;
 
 	if ((*thread = calloc(1, sizeof(**thread))) == NULL) {
 		errno = ENOMEM;
@@ -104,10 +104,12 @@
 		ADD_TAG(NP_Child, TRUE)
 #endif
 #ifdef OF_MORPHOS
 		ADD_TAG(NP_CodeType, CODETYPE_PPC);
 #endif
+		if (name != NULL)
+			ADD_TAG(NP_Name, (ULONG)name);
 
 		ADD_TAG(NP_Input, ((struct Process *)FindTask(NULL))->pr_CIS)
 		ADD_TAG(NP_Output, ((struct Process *)FindTask(NULL))->pr_COS)
 		ADD_TAG(NP_Error, ((struct Process *)FindTask(NULL))->pr_CES)
 		ADD_TAG(NP_CloseInput, FALSE)