diff --git a/kratos.gid/scripts/Controllers/CommonProcs.tcl b/kratos.gid/scripts/Controllers/CommonProcs.tcl
index 0d5425a3c..bd09923dd 100644
--- a/kratos.gid/scripts/Controllers/CommonProcs.tcl
+++ b/kratos.gid/scripts/Controllers/CommonProcs.tcl
@@ -549,10 +549,9 @@ proc spdAux::ProcShowInWriteMode { domNode args } {
     if {$kw ni [list "Geometries" "Entitites" "geometries" "entitites"]} {return "hidden"}
     set write_geometries_enabled 0
 
-    set write_mode [::write::GetWriteMode]
-    if {$write_mode eq "geometries"} {
-        set write_geometries_enabled 1
-    }
+    set nodeApp [spdAux::GetAppIdFromNode $domNode]
+    set write_mode [apps::ExecuteOnApp $nodeApp GetWriteProperty write_mdpa_mode]
+    set write_geometries_enabled [expr {$write_mode eq "geometries"}]
     if {$write_geometries_enabled} {
         if {$kw eq "Geometries" || $kw eq "geometries"} {set response "normal"} {set response "hidden"}
     } else {
diff --git a/kratos.gid/scripts/Writing/Writing.tcl b/kratos.gid/scripts/Writing/Writing.tcl
index 46be1432a..df3b7dfe1 100644
--- a/kratos.gid/scripts/Writing/Writing.tcl
+++ b/kratos.gid/scripts/Writing/Writing.tcl
@@ -397,7 +397,7 @@ proc write::isquadratic {} {
 }
 
 proc write::GetWriteMode {} {
-    return [::write::GetAttribute write_mdpa_mode]
+    return [::write::GetConfigurationAttribute write_mdpa_mode]
 }
 
 proc write::GetNodesFromElementFace {elem_id face_id} {