diff --git a/src/bytecode.c b/src/bytecode.c
index 0093e692b2f..fb94cf8e1d7 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -676,7 +676,9 @@ If the third argument is incorrect, Emacs may crash.")
 
 	case Bcatch:
 	  v1 = POP;
+	  BEFORE_POTENTIAL_GC ();
 	  TOP = internal_catch (TOP, Feval, v1);
+	  AFTER_POTENTIAL_GC ();
 	  break;
 
 	case Bunwind_protect: