--- rxvt-unicode/src/rxvtperl.xs	2006/01/09 02:06:43	1.47
+++ rxvt-unicode/src/rxvtperl.xs	2006/01/09 05:08:02	1.48
@@ -934,6 +934,13 @@
         OUTPUT:
         RETVAL
 
+char *
+rxvt_term::display_id ()
+	CODE:
+        RETVAL = THIS->display->id;
+        OUTPUT:
+        RETVAL
+
 U32
 rxvt_term::parent ()
 	CODE: