Index: TECH/Config/ConfigMgr.cls.xml
===================================================================
diff -u -r2620 -r3602
--- TECH/Config/ConfigMgr.cls.xml	(.../ConfigMgr.cls.xml)	(revision 2620)
+++ TECH/Config/ConfigMgr.cls.xml	(.../ConfigMgr.cls.xml)	(revision 3602)
@@ -186,8 +186,21 @@
 <Implementation><![CDATA[
 	#dim Sleutel As %String = "TECH.Config.ConfigMgr_"_$$$UCase($$$Server) _ ":"_$$$UCase($$$NSpace)
 	#dim Identifier As %String = ..BuildIdentifier(..#AlgemeneOmgeving,Sleutel)
-	Set configItem = ##class(TECH.Config.ConfigItem).%OpenId(Identifier,$$$ConcurrenyNoLocks)
-	#dim Omgeving As %String = configItem.GetWaarde()
+	#dim Omgeving As %String = ""
+	If (##class(TECH.Config.ConfigItem).%ExistsId(Identifier)) {
+		Set configItem = ##class(TECH.Config.ConfigItem).%OpenId(Identifier,$$$ConcurrenyNoLocks)
+		Set Omgeving = configItem.GetWaarde()
+	}
+	Else {
+		Do ##class(vhLib.Logging).VoegToeNativeLogItem("ConfigMgr", ##class(vhLib.enu.LogNiveau).Error(), "GeefOmgeving", "ConfigMgr : GeefOmgeving niet gevonden voor Identifier '"_$G(Identifier)_"'.")
+		
+		// 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>
 </Method>