From 45dad1bf0ab2881b1d32f91bb724c28ea29a03a6 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Wed, 5 Oct 2022 12:28:02 +0200
Subject: [PATCH] Common/DocumentResultList: Check for service object

---
 GUIs.Common/DocumentResultList/frmDocumentResultList.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/GUIs.Common/DocumentResultList/frmDocumentResultList.vb b/GUIs.Common/DocumentResultList/frmDocumentResultList.vb
index df1c7287..cdd2ee02 100644
--- a/GUIs.Common/DocumentResultList/frmDocumentResultList.vb
+++ b/GUIs.Common/DocumentResultList/frmDocumentResultList.vb
@@ -127,7 +127,7 @@ Public Class frmDocumentResultList
     Private Function GetOperationMode() As OperationMode
         Dim oOperationMode As OperationMode
 
-        If Environment.Service.Client.IsOnline AndAlso Environment.Service.Address <> String.Empty Then
+        If Environment.Service IsNot Nothing AndAlso Environment.Service.Client.IsOnline AndAlso Environment.Service.Address <> String.Empty Then
             oOperationMode = OperationMode.WithAppServer
         Else
             oOperationMode = OperationMode.NoAppServer