diff --git a/libgimp/gimp.c b/libgimp/gimp.c
index 98a2b53077..26cf5da425 100644
--- a/libgimp/gimp.c
+++ b/libgimp/gimp.c
@@ -1225,6 +1225,21 @@ gimp_get_pdb_error (void)
     }
 }
 
+/**
+ * gimp_get_pdb_status:
+ *
+ * Retrieves the status from the last procedure call.
+ *
+ * Return value: the #GimpPDBStatusType.
+ *
+ * Since: 2.10
+ **/
+GimpPDBStatusType
+gimp_get_pdb_status (void)
+{
+  return pdb_error_status;
+}
+
 /**
  * gimp_tile_width:
  *
diff --git a/libgimp/gimp.def b/libgimp/gimp.def
index c18a6900b3..f5bf0b916b 100644
--- a/libgimp/gimp.def
+++ b/libgimp/gimp.def
@@ -343,6 +343,7 @@ EXPORTS
 	gimp_get_parasite_list
 	gimp_get_path_by_tattoo
 	gimp_get_pdb_error
+	gimp_get_pdb_status
 	gimp_get_progname
 	gimp_get_theme_dir
 	gimp_getpid
diff --git a/libgimp/gimp.h b/libgimp/gimp.h
index 087c5d7677..ba303381c6 100644
--- a/libgimp/gimp.h
+++ b/libgimp/gimp.h
@@ -317,6 +317,10 @@ void           gimp_destroy_paramdefs   (GimpParamDef    *paramdefs,
  */
 const gchar  * gimp_get_pdb_error       (void);
 
+/* Retrieve the return status for the last procedure call.
+ */
+GimpPDBStatusType gimp_get_pdb_status   (void);
+
 /* Return various constants given by the GIMP core at plug-in config time.
  */
 guint          gimp_tile_width          (void) G_GNUC_CONST;