diff --git a/src/main/xslt/modules/tablecals.xsl b/src/main/xslt/modules/tablecals.xsl
index 1efe9501cc..8728ddaa41 100644
--- a/src/main/xslt/modules/tablecals.xsl
+++ b/src/main/xslt/modules/tablecals.xsl
@@ -352,6 +352,7 @@
 <!-- ============================================================ -->
 
 <xsl:template name="tp:cals-colspec">
+  <xsl:variable name="treshold" as="xs:integer" select="-1"/>
   <xsl:variable name="tgroup" select="."/>
 
   <xsl:variable name="widths" as="map(*)*">
@@ -381,21 +382,27 @@
   </xsl:for-each>
   -->
 
-  <xsl:variable name="absolute-width" as="xs:double"
-                select="sum($widths ! f:absolute-length(.))"/>
+  <!-- Using xs:nonNegativeInteger in function signature, because  f:absolute-length() returns 
+       a rounded numeric without fractions (as xs:double) -->
+  <xsl:variable name="absolute-width" as="xs:nonNegativeInteger"
+    select="sum($widths ! f:absolute-length(.)) => xs:nonNegativeInteger()"/>
 
   <xsl:variable name="relative-width" as="xs:double"
                 select="sum($widths ! f:relative-length(.))"/>
 
-  <xsl:variable name="absolute-remainder"
-                select="f:absolute-length($v:nominal-page-width) - $absolute-width"/>
+  <xsl:variable name="absolute-remainder" as="xs:integer"
+                select="(f:absolute-length($v:nominal-page-width) - $absolute-width) => xs:integer()"/>
 
-  <xsl:if test="$absolute-remainder lt 0">
-    <xsl:message>Table width exceeds nominal width, ignoring relative width</xsl:message>
+  <xsl:if test="$absolute-remainder lt $treshold">
+      <xsl:message select="
+          let $p := fp:path($tgroup/..)
+          return
+            $p || ' width exceeds nominal width by ' || abs($absolute-remainder) || 'px, ignoring relative width.'"
+      />
   </xsl:if>
 
   <xsl:variable name="absolute-remainder"
-                select="if ($absolute-remainder lt 0)
+                select="if ($absolute-remainder lt $treshold)
                         then 0
                         else $absolute-remainder"/>
 
diff --git a/src/main/xslt/standalone-functions.xsl b/src/main/xslt/standalone-functions.xsl
index a6d561aff1..916aa91e0a 100644
--- a/src/main/xslt/standalone-functions.xsl
+++ b/src/main/xslt/standalone-functions.xsl
@@ -378,4 +378,13 @@
   <xsl:sequence select="xs:anyURI($prefix || string-join($result, '/'))"/>
 </xsl:function>
 
+<!-- like standard fn:path, but with DocBook Namespace removed -->
+<xsl:function name="fp:path" as="xs:string?">
+  <xsl:param name="node" as="node()?"/>
+  <xsl:sequence select="
+      let $db := 'Q\{http://docbook\.org/ns/docbook\}'
+      return
+        path($node) ! replace(., $db, '')"/>
+</xsl:function>
+
 </xsl:stylesheet>