Index: APPS/common/Document/impl/DefaultVoetTekst.cls.xml
===================================================================
diff -u -r60887 -r60936
--- APPS/common/Document/impl/DefaultVoetTekst.cls.xml	(.../DefaultVoetTekst.cls.xml)	(revision 60887)
+++ APPS/common/Document/impl/DefaultVoetTekst.cls.xml	(.../DefaultVoetTekst.cls.xml)	(revision 60936)
@@ -4,18 +4,22 @@
 <Super>APPS.common.Document.impl.VoetTekst</Super>
 
 <Method name="%OnNew">
-<FormalSpec>HuidigPaginaNr:%Integer,TotaalAantalBladzijden:%Integer</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Do ..ZetTekstLinks($$FormatDateTime^vhLib("dd/mm/jjjj hh:nn",##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()))
 	Do ..ZetTekstMidden("")
-	Do ..ZetTekstRechts("p. "_HuidigPaginaNr_"/"_TotaalAantalBladzijden)
 	Quit $$$OK
 ]]></Implementation>
 </Method>
+
+<Method name="ZetPaginaNrEnTotaalAantalBladzijden">
+<FormalSpec>HuidigPaginaNr:%Integer,TotaalAantalBladzijden:%Integer</FormalSpec>
+<Implementation><![CDATA[	Do ..ZetTekstRechts("p. "_HuidigPaginaNr_"/"_TotaalAantalBladzijden)
+]]></Implementation>
+</Method>
 </Class>