diff --git a/Tools/AGSOutput.h b/Tools/AGSOutput.h
index 463f39b47..59eeb9c76 100644
--- a/Tools/AGSOutput.h
+++ b/Tools/AGSOutput.h
@@ -32,6 +32,7 @@
   NSCharacterSet	*spaces;	// All blank characters
   NSCharacterSet	*spacenl;	// Blanks excluding newline
   NSArray		*args;		// Not retained.
+  NSMutableArray	*informalProtocols; // built up as discovered
   BOOL			verbose;
   BOOL			warn;
 }
@@ -62,5 +63,6 @@
 	   withIndent: (unsigned)ind
 		   to: (NSMutableString*)buf;
 - (NSArray*) split: (NSString*)str;
+- (NSArray*) informalProtocols;
 @end
 #endif
diff --git a/Tools/AGSOutput.m b/Tools/AGSOutput.m
index 44d17af18..6c12d2653 100644
--- a/Tools/AGSOutput.m
+++ b/Tools/AGSOutput.m
@@ -131,6 +131,7 @@ static BOOL snuggleStart(NSString *t)
   DESTROY(identStart);
   DESTROY(spaces);
   DESTROY(spacenl);
+  DESTROY(informalProtocols);
   [super dealloc];
 }
 
@@ -231,6 +232,7 @@ static BOOL snuggleStart(NSString *t)
     @"_0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"]);
   identStart = RETAIN([NSCharacterSet characterSetWithCharactersInString:
     @"_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"]);
+  informalProtocols = [NSMutableArray new];
   verbose = [[NSUserDefaults standardUserDefaults] boolForKey: @"Verbose"];
   warn = [[NSUserDefaults standardUserDefaults] boolForKey: @"Warn"];
 
@@ -1177,6 +1179,8 @@ static BOOL snuggleStart(NSString *t)
 	    {
 	      [m setObject: @"YES" forKey: @"Implemented"];
 	    }
+
+          [informalProtocols addObject: name];
 	}
       else if (warn == YES)
 	{
@@ -2237,6 +2241,11 @@ static BOOL snuggleStart(NSString *t)
   return a;
 }
 
+- (NSArray*) informalProtocols
+{
+  return informalProtocols;
+}
+
 @end