Index: libguile/srfi-4.c
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/libguile/srfi-4.c,v
retrieving revision 1.6
diff -u -r1.6 srfi-4.c
--- libguile/srfi-4.c	2 Nov 2004 20:15:32 -0000	1.6
+++ libguile/srfi-4.c	2 Nov 2004 20:53:54 -0000
@@ -282,6 +282,7 @@
   else if (type == SCM_UVEC_C64)
     return scm_c_make_rectangular (((double*)base)[2*c_idx],
 				   ((double*)base)[2*c_idx+1]);
+  return SCM_BOOL_F;
 }
 
 static SCM_C_INLINE void