diff --git a/Aaru.Images/VDI/Constants.cs b/Aaru.Images/VDI/Constants.cs
index e15e2c720..5fdc2ba73 100644
--- a/Aaru.Images/VDI/Constants.cs
+++ b/Aaru.Images/VDI/Constants.cs
@@ -43,7 +43,8 @@ namespace Aaru.DiscImages
         const string SUN_VDI         = "<<< Sun VirtualBox Disk Image >>>\n";
         const string INNOTEK_VDI     = "<<< innotek VirtualBox Disk Image >>>\n";
         const string INNOTEK_OLD_VDI = "<<< InnoTek VirtualBox Disk Image >>>\n";
-        const string DIC_VDI         = "<<< DiscImageChef VirtualBox Disk Image >>>\n";
+        const string DIC_VDI = "<<< DiscImageChef VirtualBox Disk Image >>>\n";
+        const string DIC_AARU = "<<< Aaru VirtualBox Disk Image >>>\n";
 
         const uint MAX_CACHE_SIZE     = 16777216;
         const uint MAX_CACHED_SECTORS = MAX_CACHE_SIZE / 512;
diff --git a/Aaru.Images/VDI/Read.cs b/Aaru.Images/VDI/Read.cs
index 84d7a789d..f37975876 100644
--- a/Aaru.Images/VDI/Read.cs
+++ b/Aaru.Images/VDI/Read.cs
@@ -128,6 +128,9 @@ namespace Aaru.DiscImages
                 case DIC_VDI:
                     imageInfo.Application = "DiscImageChef";
                     break;
+                case DIC_AARU:
+                    imageInfo.Application = "Aaru";
+                    break;
             }
 
             imageStream = stream;
diff --git a/Aaru.Images/VDI/Write.cs b/Aaru.Images/VDI/Write.cs
index b8a04032c..368a870c5 100644
--- a/Aaru.Images/VDI/Write.cs
+++ b/Aaru.Images/VDI/Write.cs
@@ -85,7 +85,7 @@ namespace Aaru.DiscImages
 
             vHdr = new VdiHeader
             {
-                creator      = DIC_VDI,
+                creator      = DIC_AARU,
                 magic        = VDI_MAGIC,
                 majorVersion = 1,
                 minorVersion = 1,