Index: libguile/sort.c
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/libguile/sort.c,v
retrieving revision 1.58
diff -u -r1.58 sort.c
--- libguile/sort.c	22 Oct 2004 13:17:04 -0000	1.58
+++ libguile/sort.c	2 Nov 2004 20:29:22 -0000
@@ -127,6 +127,7 @@
 	{
 	  size_t left;
 	  size_t right;
+	  size_t mid;
 	  SCM pivot;
 
 	  SCM_TICK;
@@ -136,7 +137,7 @@
 	     probability of picking a pathological pivot value and
 	     skips a comparison for both the left and right. */
 
-	  size_t mid = lo + (hi - lo) / 2;
+	  mid = lo + (hi - lo) / 2;
 
 	  if (scm_is_true ((*cmp) (less, base_ptr[mid], base_ptr[lo])))
 	    SWAP (base_ptr[mid], base_ptr[lo]);