1 files changed, 2 insertions, 0 deletions

diff --git a/src/bytecode.c b/src/bytecode.c
index 4fc722e61cc..7cd38a0fe2e 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -1341,7 +1341,9 @@ If the third argument is incorrect, Emacs may crash.")
         case Bcurrent_column:
           {
             Lisp_Object v1;
+            BEFORE_POTENTIAL_GC ();
             XSETFASTINT (v1, current_column ());
+            AFTER_POTENTIAL_GC ();
             PUSH (v1);
             break;
           }