diff --git a/libguile/gc-mark.c b/libguile/gc-mark.c
index f82792509..77f3ec2af 100644
--- a/libguile/gc-mark.c
+++ b/libguile/gc-mark.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2004 Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
  *
  * This library is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Lesser General Public
@@ -71,6 +71,7 @@ void
 scm_mark_all (void)
 {
   long j;
+  int loops;
 
   scm_i_init_weak_vectors_for_gc ();
   scm_i_init_guardians_for_gc ();
@@ -100,11 +101,11 @@ scm_mark_all (void)
   
   scm_mark_subr_table ();
 
-  int loops = 0;
+  loops = 0;
   while (1)
     {
-      loops++;
       int again;
+      loops++;
 
       /* Mark the non-weak references of weak vectors.  For a weak key
 	 alist vector, this would mark the values for keys that are