diff --git a/src/ChangeLog b/src/ChangeLog
index 8d00ee9c73c..304c76f687e 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,8 @@
 2002-03-18  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
 
+	* bytecode.c (Fbyte_code): Discard unused computed value to
+	prevent gcc warning.
+
 	* lisp.h (Fplist_member): Add prototype.
 
 2002-03-18  Kim F. Storm  <storm@cua.dk>
diff --git a/src/bytecode.c b/src/bytecode.c
index f24132dae25..bcd303f8d73 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -637,7 +637,7 @@ If the third argument is incorrect, Emacs may crash.  */)
 		AFTER_POTENTIAL_GC ();
 	      }
 	  }
-	  POP;
+	  (void) POP;
 	  break;
 
 	case Bdup: