--- rxvt-unicode/src/rxvtperl.xs	2006/01/09 05:08:02	1.48
+++ rxvt-unicode/src/rxvtperl.xs	2006/01/09 19:25:57	1.49
@@ -936,8 +936,15 @@
 
 char *
 rxvt_term::display_id ()
+	ALIAS:
+           display_id = 0
+           locale     = 1
 	CODE:
-        RETVAL = THIS->display->id;
+        switch (ix)
+          {
+            case 0: RETVAL = THIS->display->id; break;
+            case 1: RETVAL = THIS->locale;      break;
+          }
         OUTPUT:
         RETVAL