diff --git a/libretro/glue.c b/libretro/glue.c
index aa3963faf6..8f57ad7a0f 100644
--- a/libretro/glue.c
+++ b/libretro/glue.c
@@ -187,3 +187,18 @@ pascal OSErr Create (ConstStr255Param fileName, short vRefNum, OSType creator,
 	// save finder info
 	return PBSetFInfoSync(&pb);
 }
+
+pascal OSErr GetWDInfo(short wdRefNum, short *vRefNum, long *dirID,
+		long *procID)
+{
+	OSErr err;
+	WDPBRec	pb;
+	memset(&pb, 0, sizeof(pb));
+	pb.ioVRefNum = wdRefNum;
+	err = PBGetWDInfo(&pb, false);
+	*vRefNum = pb.ioWDVRefNum;
+	*dirID = pb.ioWDDirID;
+	*procID = pb.ioWDProcID;
+	return err;
+}
+