Index: Compose/check-compose.pl
===================================================================
--- Compose/check-compose.pl	(revision 1927)
+++ Compose/check-compose.pl	(revision 1928)
@@ -9,4 +9,8 @@
 
 use strict;
+use Getopt::Std;
+our ($opt_q);
+
+getopts('q'); # almost quiet operation
 
 my %prefix;
@@ -23,4 +27,5 @@
 
 	if ($code{"@codes[0..$i]"}) {
+	    if ($opt_q) { exit 1; }
 	    print <<EOF;
 
@@ -33,5 +38,6 @@
 
     if ($code{"@codes"}) {
-	    print <<EOF;
+	if ($opt_q) { exit 1; }
+	print <<EOF;
 
 * @codes Sequenz mehrfach verwendet
@@ -44,5 +50,6 @@
 
     if ($prefix{"@codes"}) {
-	    print <<EOF;
+	if ($opt_q) { exit 1; }
+	print <<EOF;
 
 * @codes Sequenz bereits als Präfix verwendet
@@ -52,2 +59,3 @@
     } 
 }
+