From 5e4e60d28e8fb6fed36a8d936d75d50fa140b9d9 Mon Sep 17 00:00:00 2001
From: marcmy <21000174+marcmy@users.noreply.github.com>
Date: Thu, 27 Aug 2026 13:51:14 -0400
Subject: [PATCH 1/2] Bump displayed version to 4.0.0 beta 9

---
 CompactGUI/Application.xaml.vb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/CompactGUI/Application.xaml.vb b/CompactGUI/Application.xaml.vb
index ae335561..deb21b00 100644
--- a/CompactGUI/Application.xaml.vb
+++ b/CompactGUI/Application.xaml.vb
@@ -17,7 +17,7 @@ Imports Coravel.Scheduling.Schedule
 
 Partial Public Class Application
 
-    Public Shared ReadOnly AppVersion As New SemVersion(4, 0, 0, "beta", 7)
+    Public Shared ReadOnly AppVersion As New SemVersion(4, 0, 0, "beta", 9)
 
     Public Shared ReadOnly Property AppVersionText As String
         Get
@@ -228,7 +228,7 @@ Partial Public Class Application
         Dim ex = TryCast(e.ExceptionObject, Exception)
         Dim logger = GetService(Of ILogger(Of Application))()
         If logger IsNot Nothing AndAlso ex IsNot Nothing Then
-            logger.LogCritical(ex, "Unhandled domain exception: {Message}", ex.Message)
+            logger.LogCritical(ex, "Unhandled domain exception: {Message}", ex.Exception.Message)
         End If
     End Sub
 
@@ -300,7 +300,7 @@ Partial Public Class Application
     '            Using writer = New StreamWriter(client)
     '                writer.WriteLine(args(0))
     '            End Using
-    '        End Using
+    '        End If
     '    Else
     '        MessageBox.Show("An instance of CompactGUI is already running")
     '    End If

From 8e3da10cb4aa74cfd7eacf9995f87ad0ecf8fe4d Mon Sep 17 00:00:00 2001
From: marcmy <21000174+marcmy@users.noreply.github.com>
Date: Thu, 27 Aug 2026 13:52:14 -0400
Subject: [PATCH 2/2] Keep version bump isolated

---
 CompactGUI/Application.xaml.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/CompactGUI/Application.xaml.vb b/CompactGUI/Application.xaml.vb
index deb21b00..7d517dcb 100644
--- a/CompactGUI/Application.xaml.vb
+++ b/CompactGUI/Application.xaml.vb
@@ -228,7 +228,7 @@ Partial Public Class Application
         Dim ex = TryCast(e.ExceptionObject, Exception)
         Dim logger = GetService(Of ILogger(Of Application))()
         If logger IsNot Nothing AndAlso ex IsNot Nothing Then
-            logger.LogCritical(ex, "Unhandled domain exception: {Message}", ex.Exception.Message)
+            logger.LogCritical(ex, "Unhandled domain exception: {Message}", ex.Message)
         End If
     End Sub
 
@@ -300,7 +300,7 @@ Partial Public Class Application
     '            Using writer = New StreamWriter(client)
     '                writer.WriteLine(args(0))
     '            End Using
-    '        End If
+    '        End Using
     '    Else
     '        MessageBox.Show("An instance of CompactGUI is already running")
     '    End If