diff --git a/GUIs.Test.ZUGFeRDTest/Form1.vb b/GUIs.Test.ZUGFeRDTest/Form1.vb
index 0cb5925b..c1fc7aef 100644
--- a/GUIs.Test.ZUGFeRDTest/Form1.vb
+++ b/GUIs.Test.ZUGFeRDTest/Form1.vb
@@ -131,8 +131,14 @@ Public Class Form1
             Dim oResult = _zugferd.SerializeZUGFeRDDocument(oDoc)
             Console.WriteLine()
 
+            Dim oSpecification = oResult.Specification
+
+            If oSpecification = ZUGFeRDInterface.ZUGFERD_SPEC_10 Then
+                oSpecification = ZUGFeRDInterface.ZUGFERD_SPEC_DEFAULT
+            End If
+
             Dim oPropertyMap = oArgs.PropertyMap.
-                Where(Function(kv) kv.Value.Specification = oResult.Specification).
+                Where(Function(kv) kv.Value.Specification = oSpecification).
                 ToDictionary(Function(kv) kv.Key, Function(kv) kv.Value)
 
             Dim oResult2 = _zugferd.PropertyValues.CheckPropertyValues(oResult.SchemaObject, oPropertyMap, "test")