diff --git a/PRIVATE b/PRIVATE
index 671e09508..16585289f 160000
--- a/PRIVATE
+++ b/PRIVATE
@@ -1 +1 @@
-Subproject commit 671e09508137c7041f272009db654e46b9c0dcdc
+Subproject commit 16585289fdbe5d835da61a8e7736e372024a06d8
diff --git a/src/YAML_types.f90 b/src/YAML_types.f90
index 6a56d1dbc..5d7411dd3 100644
--- a/src/YAML_types.f90
+++ b/src/YAML_types.f90
@@ -1166,7 +1166,10 @@ function tDict_get_as1dReal(self,k,defaultVal,requiredSize) result(nodeAs1dReal)
   end if
 
   if (present(requiredSize)) then
-    if (requiredSize /= size(nodeAs1dReal)) call IO_error(146,ext_msg=k)
+    if (requiredSize /= size(nodeAs1dReal)) &
+      call IO_error(146,ext_msg=k, &
+                    label1='actual',ID1=size(nodeAs1dReal), &
+                    label2='required',ID2=requiredSize)
   end if
 
 end function tDict_get_as1dReal
@@ -1251,7 +1254,10 @@ function tDict_get_as1dInt(self,k,defaultVal,requiredSize) result(nodeAs1dInt)
   end if
 
   if (present(requiredSize)) then
-    if (requiredSize /= size(nodeAs1dInt)) call IO_error(146,ext_msg=k)
+    if (requiredSize /= size(nodeAs1dInt)) &
+      call IO_error(146,ext_msg=k, &
+                    label1='actual',ID1=size(nodeAs1dInt), &
+                    label2='required',ID2=requiredSize)
   end if
 
 end function tDict_get_as1dInt