diff --git a/cells/mag/fixup.pl b/cells/mag/fixup.pl
new file mode 100755
index 0000000..0fad9ce
--- /dev/null
+++ b/cells/mag/fixup.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/perl -w
+use strict;
+
+
+foreach my $mag (<*.mag>)
+{
+  my $name=$mag; $name=~s/\.mag$//;
+  system "cp $mag $mag.beforemagic";
+
+  open MAGIC,"|magic -dnull -noconsole -T sky130A $mag";
+print MAGIC <<EOF
+box -10 683 5210 778
+erase locali
+box -49 -114 5210 -17
+erase locali
+save
+gds
+quit
+EOF
+;
+  close MAGIC;
+  system "mv $name.gds ../gds/$name.gds";
+}