--- rxvt-unicode/src/rxvtperl.xs	2006/01/20 22:05:41	1.85
+++ rxvt-unicode/src/rxvtperl.xs	2006/01/20 22:49:34	1.86
@@ -1119,12 +1119,14 @@
            ModLevel3Mask  = 0
            ModMetaMask    = 1
            ModNumLockMask = 2
+           current_screen = 3
 	CODE:
         switch (ix)
           {
            case 0: RETVAL = THIS->ModLevel3Mask;  break;
            case 1: RETVAL = THIS->ModMetaMask;    break;
            case 2: RETVAL = THIS->ModNumLockMask; break;
+           case 3: RETVAL = THIS->current_screen; break;
           }
         OUTPUT:
         RETVAL
@@ -1591,6 +1593,9 @@
 rxvt_term::scr_bell ()
 
 void
+rxvt_term::scr_change_screen (int screen)
+
+void
 rxvt_term::scr_add_lines (SV *string)
 	CODE:
 {