diff --git a/src/ChangeLog b/src/ChangeLog
index 04042fab40b..98c2e0d87c5 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2001-10-31  Gerd Moellmann  <gerd@gnu.org>
+
+	* fns.c (require_unwind): Return Lisp_Object.
+
 2001-10-31  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
 
 	* keyboard.c (lucid-menu-bar-dirty-flag): Doc fix.
diff --git a/src/fns.c b/src/fns.c
index 62f9d85682c..15415d9a1ad 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -3082,10 +3082,11 @@ particular subfeatures supported in this version of FEATURE.  */)
 
 Lisp_Object require_nesting_list;
 
+Lisp_Object
 require_unwind (old_value)
      Lisp_Object old_value;
 {
-  require_nesting_list = old_value;
+  return require_nesting_list = old_value;
 }
 
 DEFUN ("require", Frequire, Srequire, 1, 3, 0,