diff --git a/geom-exp.cpp b/geom-exp.cpp
index 60e15b5f..9f0ed4a1 100644
--- a/geom-exp.cpp
+++ b/geom-exp.cpp
@@ -634,6 +634,7 @@ EX string full_geometry_name() {
   
   string fgname = XLAT(ginf[geometry].tiling_name);
   if(qstring != "none") fgname += " " + XLAT(qstring);
+  if(arcm::in()) fgname = arcm::current.symbol;
   if(variable) fgname = gp::operation_name() + " " + fgname;
   return fgname;
   }