From 684dafa32bdf6421c63f9f491330f78d01420747 Mon Sep 17 00:00:00 2001
From: Javi G <fjgarate@cimne.upc.edu>
Date: Thu, 27 Feb 2020 18:33:57 +0100
Subject: [PATCH] split by - instead of /

---
 kratos.gid/scripts/Writing/Writing.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/kratos.gid/scripts/Writing/Writing.tcl b/kratos.gid/scripts/Writing/Writing.tcl
index 9966bb4e5..89df01e14 100644
--- a/kratos.gid/scripts/Writing/Writing.tcl
+++ b/kratos.gid/scripts/Writing/Writing.tcl
@@ -251,7 +251,7 @@ proc write::transformGroupName {groupid} {
             lappend new_parts [string map [list $bad $good] $part]
         }
     }
-    return [join $new_parts /]
+    return [join $new_parts -]
 }
 
 # Warning! Indentation must be set before calling here!