diff --git a/libguile/read.c b/libguile/read.c
index bb6836bb8..6718224a0 100644
--- a/libguile/read.c
+++ b/libguile/read.c
@@ -442,7 +442,7 @@ scm_lreadr (SCM *tok_buf, SCM port, SCM *copy)
 	  c = scm_flush_ws (port, (char *)NULL);
 	  goto tryagain_no_flush_ws;
 
-#ifdef SCM_HAVE_ARRAYS
+#if SCM_HAVE_ARRAYS
 	case '*':
 	  j = scm_read_token (c, tok_buf, port, 0);
 	  p = scm_istr2bve (SCM_STRING_CHARS (*tok_buf) + 1, (long) (j - 1));