diff --git a/source/persistency/gdml/include/G4GDMLWriteMaterials.hh b/source/persistency/gdml/include/G4GDMLWriteMaterials.hh
index 46e52c36ce..b54b5480e4 100644
--- a/source/persistency/gdml/include/G4GDMLWriteMaterials.hh
+++ b/source/persistency/gdml/include/G4GDMLWriteMaterials.hh
@@ -48,6 +48,7 @@ class G4Isotope;
 class G4Element;
 class G4Material;
 class G4PhysicsOrderedFreeVector;
+class G4MaterialPropertiesTable;
 
 class G4GDMLWriteMaterials : public G4GDMLWriteDefine
 {
@@ -76,6 +77,8 @@ class G4GDMLWriteMaterials : public G4GDMLWriteDefine
    void PropertyWrite(xercesc::DOMElement*, const G4Material* const);
    void PropertyVectorWrite(const G4String&,
                             const G4PhysicsOrderedFreeVector* const);
+   void PropertyConstWrite(const G4String&,
+  			   const G4double, const G4MaterialPropertiesTable*);
  protected:
 
    std::vector<const G4Isotope*> isotopeList;
diff --git a/source/persistency/gdml/src/G4GDMLWriteMaterials.cc b/source/persistency/gdml/src/G4GDMLWriteMaterials.cc
index 9e9cf7a818..ae712f90eb 100644
--- a/source/persistency/gdml/src/G4GDMLWriteMaterials.cc
+++ b/source/persistency/gdml/src/G4GDMLWriteMaterials.cc
@@ -230,6 +230,22 @@ void G4GDMLWriteMaterials::PropertyVectorWrite(const G4String& key,
    defineElement->appendChild(matrixElement);
 }
 
+void G4GDMLWriteMaterials::PropertyConstWrite(const G4String& key,
+					      const G4double pval, const G4MaterialPropertiesTable* ptable)
+{  
+   const G4String matrixref = GenerateName(key, ptable);
+   xercesc::DOMElement* matrixElement = NewElement("matrix");
+   matrixElement->setAttributeNode(NewAttribute("name", matrixref));
+   matrixElement->setAttributeNode(NewAttribute("coldim", "1"));
+   std::ostringstream pvalues;
+
+   pvalues << pval;
+   matrixElement->setAttributeNode(NewAttribute("values", pvalues.str()));
+
+   defineElement->appendChild(matrixElement);
+}
+
+
 void G4GDMLWriteMaterials::PropertyWrite(xercesc::DOMElement* matElement,
                                          const G4Material* const mat)
 {
@@ -276,13 +292,15 @@ void G4GDMLWriteMaterials::PropertyWrite(xercesc::DOMElement* matElement,
       propElement = NewElement("property");
       propElement->setAttributeNode(NewAttribute("name", 
                    ptable->GetMaterialConstPropertyNames()[cpos->first]));
-      propElement->setAttributeNode(NewAttribute("ref", 
-                   ptable->GetMaterialConstPropertyNames()[cpos->first]));
-      xercesc::DOMElement* constElement = NewElement("constant");
-      constElement->setAttributeNode(NewAttribute("name", 
-                    ptable->GetMaterialConstPropertyNames()[cpos->first]));
-      constElement->setAttributeNode(NewAttribute("value", cpos->second));
-      defineElement->appendChild(constElement);
+      propElement->
+	setAttributeNode(NewAttribute("ref", 
+				      GenerateName(ptable->GetMaterialConstPropertyNames()[cpos->first],
+						   ptable)));
+
+      
+      PropertyConstWrite(ptable->GetMaterialConstPropertyNames()[cpos->first],
+			 cpos->second, ptable);
+
       matElement->appendChild(propElement);
    }
 }