diff --git a/app/DD_PM_WINDREAM/ApplicationEvents.vb b/app/DD_PM_WINDREAM/ApplicationEvents.vb
index bfbcb0d..7e8971b 100644
--- a/app/DD_PM_WINDREAM/ApplicationEvents.vb
+++ b/app/DD_PM_WINDREAM/ApplicationEvents.vb
@@ -19,7 +19,7 @@ Namespace My
                 If USER_DEBUG_LOG = True Then
                     Dim oLogMessage = LOGCONFIG.Logs.Last()
                     Dim oLogSplit As String() = oLogMessage.Split("|")
-                    Dim oDBMessage = PrepareLogMessage(oLogMessage)
+                    Dim oDBMessage = PrepareLogMessage(oLogMessage) & $" [Machinename: {Environment.MachineName}]"
 
                     Dim oSQL = $"INSERT INTO [dbo].[TBPM_LOG_DEBUG] ([USERID], [LOGMSG], [ADDED_WHEN], DATE_STR) VALUES({USER_ID},'{oDBMessage}',GETDATE(),'{Now}')"
                     ClassDatabase.Execute_non_Query(oSQL)