Index: TECH/Config/ConfigMgr.cls.xml
===================================================================
diff -u -r3602 -r3604
--- TECH/Config/ConfigMgr.cls.xml	(.../ConfigMgr.cls.xml)	(revision 3602)
+++ TECH/Config/ConfigMgr.cls.xml	(.../ConfigMgr.cls.xml)	(revision 3604)
@@ -189,17 +189,22 @@
 	#dim Omgeving As %String = ""
 	If (##class(TECH.Config.ConfigItem).%ExistsId(Identifier)) {
 		Set configItem = ##class(TECH.Config.ConfigItem).%OpenId(Identifier,$$$ConcurrenyNoLocks)
-		Set Omgeving = configItem.GetWaarde()
+		If $IsObject(configItem) {
+			Set Omgeving = configItem.GetWaarde()
+		} Else {
+			Do ##class(vhLib.Logging).VoegToeNativeLogItem("ConfigMgr", ##class(vhLib.enu.LogNiveau).Error(), "GeefOmgeving", "ConfigMgr : GeefOmgeving niet gevonden, want kon object configItem niet openen voor Identifier '"_$G(Identifier)_"'.")
+		}
 	}
 	Else {
 		Do ##class(vhLib.Logging).VoegToeNativeLogItem("ConfigMgr", ##class(vhLib.enu.LogNiveau).Error(), "GeefOmgeving", "ConfigMgr : GeefOmgeving niet gevonden voor Identifier '"_$G(Identifier)_"'.")
-		
+		// Het smijten van een exceptie resulteert in een oneindige loop.  Daarom kunnen we de exceptie hier niet throwen. 
+		;Do ##class(TECH.Exceptions.DataNotFoundException).Throw("ConfigMgr : GeefOmgeving niet gevonden voor Identifier '"_Identifier_"'.")
+	}
+	
+	If Omgeving = "" {
 		// Fall back : Hardcoded values 
 		Set Omgeving = "DEV"
 		Set:($$$Server = "CACHE01") Omgeving = "PROD"
-		
-		// Het smijten van een exceptie resulteert in een oneindige loop.  Daarom kunnen we de exceptie hier niet throwen. 
-		;Do ##class(TECH.Exceptions.DataNotFoundException).Throw("ConfigMgr : GeefOmgeving niet gevonden voor Identifier '"_Identifier_"'.")
 	}
 	quit Omgeving
 ]]></Implementation>