--- guile-1.8.4.orig/libguile/read.c	Thu Feb  7 10:13:17 2008
+++ guile-1.8.4/libguile/read.c	Sat Apr 26 12:06:38 2008
@@ -317,7 +317,7 @@ scm_read_sexp (int chr, SCM port)
   register int c;
   register SCM tmp;
   register SCM tl, ans = SCM_EOL;
-  SCM tl2 = SCM_EOL, ans2 = SCM_EOL, copy = SCM_BOOL_F;;
+  SCM tl2 = SCM_EOL, ans2 = SCM_EOL, copy = SCM_BOOL_F;
   static const int terminating_char = ')';
 
   /* Need to capture line and column numbers here. */