diff --git a/ChangeLog b/ChangeLog
index 5ee2a8b0..a286b952 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -9,6 +9,7 @@ master
   interactive use
 - require libjxl 0.7+
 - add "interlace" option to GIF save [dloebl]
+- magick load sets "magick-format" metadata [aksdb]
 
 24/7/22 started 8.13.1
 - fix im7 feature detection in meson
diff --git a/libvips/foreign/magick7load.c b/libvips/foreign/magick7load.c
index aeed86b7..3c3543c5 100644
--- a/libvips/foreign/magick7load.c
+++ b/libvips/foreign/magick7load.c
@@ -569,6 +569,13 @@ vips_foreign_load_magick7_parse( VipsForeignLoadMagick7 *magick7,
 	if( magick_set_vips_profile( out, image ) )
 		return( -1 );
 
+        /* Something like "BMP".
+         */
+        if( magick7->image->magick &&
+                strlen( magick7->image->magick ) > 0 )
+                vips_image_set_string( out, "magick-format", 
+                        magick7->image->magick );
+
 	magick7->n_pages = GetImageListLength( GetFirstImageInList( image ) );
 #ifdef DEBUG
 	printf( "image has %d pages\n", magick7->n_pages );