Index: DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml
===================================================================
diff -u -r33953 -r34317
--- DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml	(.../TBXLadeImpl.cls.xml)	(revision 33953)
+++ DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml	(.../TBXLadeImpl.cls.xml)	(revision 34317)
@@ -192,9 +192,8 @@
 	#dim BevatTiponModule As %Boolean = $$$False
 
 	If (..BevatTipOn()) {
-		Set GeleiderBouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(..GeefPRNr()_"||"_"PRCPLI.001")
-		If $IsObject(GeleiderBouwsteen)
-		{
+		If (##class(DOM.PM.Bouwstenen.Bouwsteen).%ExistsId(..GeefPRNr()_"||"_"PRCPLI.001")) {
+			Set GeleiderBouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(..GeefPRNr()_"||"_"PRCPLI.001",$$$ConcurrenyNoLocks)
 			#dim GeleiderPRNr As %String = GeleiderBouwsteen.KindProduct.ProductNr
 			Set BevatTiponModule = ##class(BL.PR.GA.TandemBox).IsTiponGeleiderMetTiponEenheid(GeleiderPRNr)
 		}