Index: BL/Prod/SearchBuildIndex.cls.xml
===================================================================
diff -u -r2589 -r3857
--- BL/Prod/SearchBuildIndex.cls.xml	(.../SearchBuildIndex.cls.xml)	(revision 2589)
+++ BL/Prod/SearchBuildIndex.cls.xml	(.../SearchBuildIndex.cls.xml)	(revision 3857)
@@ -103,11 +103,13 @@
 <FormalSpec>PRNr:%Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Lock +^KPR(..PRNr)#"S"
-	If ($Piece(^KPR(..PRNr,0),"\",28) = "") {
-		Set $Piece(^KPR(..PRNr,0),"\",28) = +$h
+	If $Length($Get(PRNr)){
+		Lock +^KPR(..PRNr)#"S"
+		If ($Piece(^KPR(..PRNr,0),"\",28) = "") {
+			Set $Piece(^KPR(..PRNr,0),"\",28) = +$h
+		}
+		Lock -^KPR(..PRNr)#"S"
 	}
-	Lock -^KPR(..PRNr)#"S"
 ]]></Implementation>
 </Method>