diff -r 5d1e411a5400 -r 23b81eb371a8 bookloupe/bookloupe.c
--- a/bookloupe/bookloupe.c	Sun May 26 20:12:48 2013 +0100
+++ b/bookloupe/bookloupe.c	Sun May 26 20:24:02 2013 +0100
@@ -2217,6 +2217,33 @@
 }
 
 /*
+ * check_for_unspaced_bracket:
+ *
+ * Brackets are often unspaced, but shouldn't be surrounded by alpha.
+ * If so, suspect a scanno like "a]most".
+ */
+void check_for_unspaced_bracket(const char *aline)
+{
+    int i,llen;
+    llen=strlen(aline);
+    for (i=1;i<llen-1;i++)
+    {
+	/* for each bracket character in the line except 1st & last */
+	if (strchr("{[()]}",aline[i]) && gcisalpha(aline[i-1]) &&
+	  gcisalpha(aline[i+1]))
+	{
+	    if (pswit[ECHO_SWITCH])
+		printf("\n%s\n",aline);
+	    if (!pswit[OVERVIEW_SWITCH])
+		printf("    Line %ld column %d - Unspaced bracket?\n",
+		  linecnt,i);
+	    else
+		cnt_punct++;
+	}
+    }
+}
+
+/*
  * procfile:
  *
  * Process one file.
@@ -2461,26 +2488,7 @@
 	check_for_spaced_quotes(aline);
 	check_for_miscased_genative(aline);
 	check_end_of_line(aline,warnings);
-        /*
-	 * Brackets are often unspaced, but shouldn't be surrounded by alpha.
-         * If so, suspect a scanno like "a]most".
-	 */
-        llen=strlen(aline);
-        for (i=1;i<llen-1;i++)
-	{
-	    /* for each bracket character in the line except 1st & last */
-            if (strchr("{[()]}",aline[i]) && gcisalpha(aline[i-1]) &&
-	      gcisalpha(aline[i+1]))
-	    {
-                if (pswit[ECHO_SWITCH])
-		    printf("\n%s\n",aline);
-                if (!pswit[OVERVIEW_SWITCH])
-                    printf("    Line %ld column %d - Unspaced bracket?\n",
-		      linecnt,i);
-                else
-                    cnt_punct++;
-	    }
-	}
+	check_for_unspaced_bracket(aline);
         llen=strlen(aline);
         if (warnings->endquote)
 	{