diff --git a/trunk/schematron/code/iso_schematron_skeleton_for_saxon.xsl b/trunk/schematron/code/iso_schematron_skeleton_for_saxon.xsl
index d18f216..04dfd0c 100644
--- a/trunk/schematron/code/iso_schematron_skeleton_for_saxon.xsl
+++ b/trunk/schematron/code/iso_schematron_skeleton_for_saxon.xsl
@@ -1915,18 +1915,7 @@ which require a preprocess.
 	<xsl:template match="schold:*"  priority="-2" />
 	 
 	<xsl:template match="*"  priority="-3">
-	    <xsl:choose>
-	       <xsl:when test=" $allow-foreign = 'false' ">
-				<xsl:message>
-					<xsl:call-template name="outputLocalizedMessage" ><xsl:with-param name="number">39a</xsl:with-param></xsl:call-template>
-					<xsl:value-of select="name(.)"/>
-					<xsl:call-template name="outputLocalizedMessage" ><xsl:with-param name="number">39b</xsl:with-param></xsl:call-template>
-				</xsl:message>
-			</xsl:when>
-			<xsl:otherwise>
-				<xsl:copy-of select="." />
-			</xsl:otherwise>
-		</xsl:choose>
+          <xsl:call-template name="process-foreign"/>
 	</xsl:template>
 	
 	<xsl:template match="iso:*" mode="text" priority="-2" />
@@ -2146,6 +2135,21 @@ which require a preprocess.
 		<axsl:text> </axsl:text>
 	</xsl:template>
 
+        <xsl:template name="process-foreign">
+          <xsl:choose>
+	    <xsl:when test=" $allow-foreign = 'false' ">
+	      <xsl:message>
+		<xsl:call-template name="outputLocalizedMessage" ><xsl:with-param name="number">39a</xsl:with-param></xsl:call-template>
+		<xsl:value-of select="name(.)"/>
+		<xsl:call-template name="outputLocalizedMessage" ><xsl:with-param name="number">39b</xsl:with-param></xsl:call-template>
+	      </xsl:message>
+	    </xsl:when>
+	    <xsl:otherwise>
+	      <xsl:copy-of select="." />
+	    </xsl:otherwise>
+	  </xsl:choose>
+        </xsl:template>
+
 	<!-- default output action: the simplest customization is to just override this -->
 	<xsl:template name="process-message">
 		<xsl:param name="pattern" />
diff --git a/trunk/schematron/code/iso_schematron_skeleton_for_xslt1.xsl b/trunk/schematron/code/iso_schematron_skeleton_for_xslt1.xsl
index 9a764df..a15a81e 100644
--- a/trunk/schematron/code/iso_schematron_skeleton_for_xslt1.xsl
+++ b/trunk/schematron/code/iso_schematron_skeleton_for_xslt1.xsl
@@ -1596,17 +1596,7 @@ THE SOFTWARE.
 	<xsl:template match="sch:*"  priority="-2" />
 	
 	<xsl:template match="*"  priority="-3">
-	    <xsl:choose>
-	       <xsl:when test=" $allow-foreign = 'false' ">
-				<xsl:message>
-					<xsl:text>Warning: unrecognized element </xsl:text>
-					<xsl:value-of select="name(.)"/>
-				</xsl:message>
-			</xsl:when>
-			<xsl:otherwise>
-				<xsl:copy-of select="." />
-			</xsl:otherwise>
-		</xsl:choose>
+	  <xsl:call-template name="process-foreign"/>
 	</xsl:template>
 	
 	<xsl:template match="iso:*" mode="text" priority="-2" />
@@ -1834,6 +1824,20 @@ THE SOFTWARE.
 		<axsl:text> </axsl:text>
 	</xsl:template>
 
+        <xsl:template name="process-foreign">
+          <xsl:choose>
+	    <xsl:when test=" $allow-foreign = 'false' ">
+	      <xsl:message>
+		<xsl:text>Warning: unrecognized element </xsl:text>
+		<xsl:value-of select="name(.)"/>
+	      </xsl:message>
+	    </xsl:when>
+	    <xsl:otherwise>
+	      <xsl:copy-of select="." />
+	    </xsl:otherwise>
+	  </xsl:choose>
+        </xsl:template>
+
 	<!-- default output action: the simplest customization is to just override this -->
 	<xsl:template name="process-message">
 		<xsl:param name="pattern" />