diff --git a/src/mesh/blockMesh/blocks/block/block.C b/src/mesh/blockMesh/blocks/block/block.C
index 143994ab55..396698619d 100644
--- a/src/mesh/blockMesh/blocks/block/block.C
+++ b/src/mesh/blockMesh/blocks/block/block.C
@@ -35,6 +35,24 @@ namespace Foam
 
 // * * * * * * * * * * * * * * * * Constructors  * * * * * * * * * * * * * * //
 
+Foam::block::block
+(
+    const cellShape& bshape,
+    const pointField& vertices,
+    const blockEdgeList& edges,
+    const blockFaceList& faces,
+    const Vector<label>& density,
+    const UList<gradingDescriptors>& expand,
+    const word& zoneName
+)
+:
+    blockDescriptor(bshape, vertices, edges, faces, density, expand, zoneName)
+{
+    createPoints();
+    createBoundary();
+}
+
+
 Foam::block::block
 (
     const dictionary& dict,
diff --git a/src/mesh/blockMesh/blocks/block/block.H b/src/mesh/blockMesh/blocks/block/block.H
index c0150a9c3a..62695837a5 100644
--- a/src/mesh/blockMesh/blocks/block/block.H
+++ b/src/mesh/blockMesh/blocks/block/block.H
@@ -116,6 +116,18 @@ public:
 
     // Constructors
 
+        //- Construct from components. Optional cellSet/zone name.
+        block
+        (
+            const cellShape& bshape,
+            const pointField& vertices,
+            const blockEdgeList& edges,
+            const blockFaceList& faces,
+            const Vector<label>& density,
+            const UList<gradingDescriptors>& expand,
+            const word& zoneName = ""
+        );
+
         //- Construct from components with Istream
         block
         (