--- a/src/bytecode.c	Mon Aug 13 09:41:47 2007 +0200
+++ b/src/bytecode.c	Mon Aug 13 09:42:26 2007 +0200
@@ -155,7 +155,8 @@
 #define Bbobp 0157
 #define Bcurrent_buffer 0160
 #define Bset_buffer 0161
-#define Bread_char 0162 /* No longer generated as of v19 */
+#define Bsave_current_buffer 0162 /* was Bread_char, but no longer
+				     generated as of v19 */
 #define Bmemq 0163 /* was Bset_mark, but no longer generated as of v18 */
 #define Binteractive_p 0164 /* Needed since interactive-p takes unevalled args */
 
@@ -941,9 +942,14 @@
 	  TOP = Fset_buffer (TOP);
 	  break;
 
-	case Bread_char:
-	  error ("read-char is an obsolete byte code");
-	  break;
+	case Bsave_current_buffer:
+	  {
+	    Lisp_Object save_current_buffer_restore (Lisp_Object);
+
+	    record_unwind_protect (save_current_buffer_restore,
+				   Fcurrent_buffer ());
+	    break;
+	  }
 
 	case Binteractive_p:
 	  PUSH (Finteractive_p ());