Index: nano.c
==================================================================
--- nano.c
+++ nano.c
@@ -298,18 +298,19 @@
 	}
 
 	password = Tcl_GetByteArrayFromObj(objv[1], &password_length);
 	salt = Tcl_GetByteArrayFromObj(objv[2], &salt_length);
 
-	hash_ret = argon2_hash(NANO_KDF_ARGON2_TIMING, NANO_KDF_ARGON2_MEMORY, 1,
+	hash_ret = argon2_hash(NANO_KDF_ARGON2_TIMING, NANO_KDF_ARGON2_MEMORY, NANO_KDF_ARGON2_THREADS,
 	                       password, password_length,
 	                       salt, salt_length,
 	                       result, sizeof(result),
 	                       NULL, 0, Argon2_d, 0x10);
 
 	if (hash_ret != ARGON2_OK) {
 		Tcl_SetResult(interp, (char *) argon2_error_message(hash_ret), NULL);
+
 		return(TCL_ERROR);
 	}
 
 	Tcl_SetObjResult(interp, Tcl_NewByteArrayObj(result, sizeof(result)));