Index: trunk/MagicSoft/Mars/macros/readCT1.C
===================================================================
--- trunk/MagicSoft/Mars/macros/readCT1.C	(revision 2437)
+++ trunk/MagicSoft/Mars/macros/readCT1.C	(revision 2438)
@@ -49,5 +49,4 @@
     MParList plist;
 
-    MGeomCamCT1  geomcam;
     MHillas      hillas;
     MHillasExt   hillasext;
@@ -67,4 +66,6 @@
     MHillasCalc   hcalc;
 
+    geomapl.SetGeometry("MGeomCamCT1");
+
     tlist.AddToList(&read);
     tlist.AddToList(&clone);
@@ -77,4 +78,6 @@
     if (!evtloop.PreProcess())
         return;
+
+    MGeomCam *geomcam = (MGeomCam*)plist->FindObject("MGeomCam");
 
     Int_t icount = 0;
Index: trunk/MagicSoft/Mars/macros/readMagic.C
===================================================================
--- trunk/MagicSoft/Mars/macros/readMagic.C	(revision 2437)
+++ trunk/MagicSoft/Mars/macros/readMagic.C	(revision 2438)
@@ -96,6 +96,8 @@
         return;
 
-    MHCamera display1(geomcam);
-    MHCamera display2(geomcam);
+    MGeomCam *geomcam = (MGeomCam*)plist->FindObject("MGeomCam");
+
+    MHCamera display1(*geomcam);
+    MHCamera display2(*geomcam);
 
     TCanvas c("Events", "Real Events", 300, 600);
Index: trunk/MagicSoft/Mars/macros/tar.C
===================================================================
--- trunk/MagicSoft/Mars/macros/tar.C	(revision 2437)
+++ trunk/MagicSoft/Mars/macros/tar.C	(revision 2438)
@@ -21,5 +21,5 @@
     gSystem->cd("..");
 
-    TString cmd = "tar cvf "+name+".tar --exclude=Root "+name+"/.rootrc "+name+"/*";
+    TString cmd = "tar cvf "+name+".tar --exclude=Root Tag "+name+"/.rootrc "+name+"/*";
 
     cout << "Executing: " << cmd << endl;