diff --git a/src/mzscheme/src/fun.c b/src/mzscheme/src/fun.c
index 782c5c4b44..06783af495 100644
--- a/src/mzscheme/src/fun.c
+++ b/src/mzscheme/src/fun.c
@@ -5058,9 +5058,9 @@ call_cc (int argc, Scheme_Object *argv[])
 static Scheme_Cont *grab_continuation(Scheme_Thread *p, int for_prompt, int composable,
                                       Scheme_Object *prompt_tag,
                                       Scheme_Cont *sub_cont, Scheme_Prompt *prompt,
-                                      Scheme_Meta_Continuation *prompt_cont, MZ_MARK_POS_TYPE prompt_pos,
-                                      Scheme_Prompt *barrier_prompt, Scheme_Prompt *effective_barrier_prompt,
-                                      Scheme_Meta_Continuation *barrier_cont, MZ_MARK_POS_TYPE barrier_pos)
+                                      Scheme_Meta_Continuation *prompt_cont, 
+                                      Scheme_Prompt *effective_barrier_prompt
+                                      )
 {
   Scheme_Cont *cont;
   
@@ -5697,8 +5697,7 @@ internal_call_cc (int argc, Scheme_Object *argv[])
   }
 
   cont = grab_continuation(p, 0, composable, prompt_tag, sub_cont, 
-                           prompt, prompt_cont, prompt_pos,
-                           barrier_prompt, effective_barrier_prompt, barrier_cont, barrier_pos);
+                           prompt, prompt_cont, effective_barrier_prompt);
 
   scheme_zero_unneeded_rands(p);
 
@@ -6104,7 +6103,7 @@ static Scheme_Object *compose_continuation(Scheme_Cont *cont, int exec_chain,
 
   /* Grab a continuation so that we capture the current Scheme stack,
      etc.: */
-  saved = grab_continuation(p, 1, 0, NULL, NULL, NULL, NULL, 0, NULL, NULL, NULL, 0);
+  saved = grab_continuation(p, 1, 0, NULL, NULL, NULL, NULL, NULL);
 
   if (p->meta_prompt)
     saved->prompt_stack_start = p->meta_prompt->stack_boundary;