diff -ru orig.screen-4.0.2/doc/screen.texinfo screen-4.0.2/doc/screen.texinfo
--- orig.screen-4.0.2/doc/screen.texinfo	2003-12-05 05:51:46.000000000 -0800
+++ screen-4.0.2/doc/screen.texinfo	2007-02-01 08:59:45.000000000 -0800
@@ -4754,6 +4754,8 @@
 window number
 @item s
 seconds
address@hidden S
+session name (@pxref{Session Name})
 @item t
 window title
 @item u
Only in screen-4.0.2/doc: screen.texinfo~
diff -ru orig.screen-4.0.2/process.c screen-4.0.2/process.c
--- orig.screen-4.0.2/process.c	2003-09-18 05:53:54.000000000 -0700
+++ screen-4.0.2/process.c	2007-02-01 09:05:07.000000000 -0800
@@ -2889,6 +2889,7 @@
 	  debug2("rename(%s, %s) done\n", SockPath, buf);
 	  strcpy(SockPath, buf);
 	  MakeNewEnv();
+	  RefreshHStatus();
 	}
       break;
     case RC_SETENV:
diff -ru orig.screen-4.0.2/screen.c screen-4.0.2/screen.c
--- orig.screen-4.0.2/screen.c	2003-09-08 07:26:41.000000000 -0700
+++ screen-4.0.2/screen.c	2007-02-01 08:47:36.000000000 -0800
@@ -2601,6 +2601,18 @@
 	    }
 	  p += strlen(p) - 1;
 	  break;
+	case 'S':
+	  *p = 0;
+	  if ((int)strlen(SockName) < l)
+	    {
+	      strcpy(p, SockName);
+	      if (*p)
+		qmflag = 1;
+	    }
+	  p += strlen(p) - 1;
+          if (!tick || tick > 5)
+             tick = 5;
+	  break;
 	case 'F':
 	  p--;
 	  /* small hack */