Index: Prod/GADef/emKadBeslag.cls.xml
===================================================================
diff -u -r55247 -r67016
--- Prod/GADef/emKadBeslag.cls.xml	(.../emKadBeslag.cls.xml)	(revision 55247)
+++ Prod/GADef/emKadBeslag.cls.xml	(.../emKadBeslag.cls.xml)	(revision 67016)
@@ -327,8 +327,10 @@
 <Method name="GeefBeslagOmsVertaling">
 <FormalSpec>KeyBeslagType:%String,KadVertaler:Prod.GADef.KadVertaler</FormalSpec>
 <Implementation><![CDATA[
+	New Vertaling,BeslagOmsIntern,BType
 	Set Vertaling=""
 	Set BeslagOmsIntern=""
+	Set BType = KeyBeslagType   ; niet de properste oplossing, maar gekozen voor de optie van minimale wijziging.  Het kon voordien alleen maar werken omdat deze method ProcedureBlock=0 is :-P 
 	If (BType?1(1"S",1"HFC")) {
 		Set BeslagOmsIntern="Scharnier"
 	} ElseIf (BType="LB") {