Index: DOM/PM/TBXProduct/impl/TBXSpaanplaatStrook.cls.xml
===================================================================
diff -u -r2529 -r2535
--- DOM/PM/TBXProduct/impl/TBXSpaanplaatStrook.cls.xml	(.../TBXSpaanplaatStrook.cls.xml)	(revision 2529)
+++ DOM/PM/TBXProduct/impl/TBXSpaanplaatStrook.cls.xml	(.../TBXSpaanplaatStrook.cls.xml)	(revision 2535)
@@ -14,12 +14,14 @@
 </Method>
 
 <Method name="GeefKleur2de">
+<Description>
+De 2e kleur is onzichtbaar aan de achterkant</Description>
 <FormalSpec>ZichtbareKleur:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set lbKleuren=..GeefKleuren()
-	Set Kleur2de=$S(lbKleuren'="":$LG(lbKleuren,$S($LF(lbKleuren,Kleur1ste)=1:2,1:1)),1:"") ; 2e kleur rug
-	Quit Kleur2de
+	Set KleurAchterkant=$S(lbKleuren'="":$LG(lbKleuren,$S($LF(lbKleuren,ZichtbareKleur)=1:2,1:1)),1:"") 
+	Quit KleurAchterkant
 ]]></Implementation>
 </Method>