--- a/ClassOrganizer.st	Tue Mar 21 13:48:54 2000 +0100
+++ b/ClassOrganizer.st	Tue Mar 21 13:56:59 2000 +0100
@@ -77,6 +77,12 @@
     ^ self new class:aClass
 ! !
 
+!ClassOrganizer class methodsFor:'defaults'!
+
+defaultProtocol 
+    ^ 'as yet unspecified'
+! !
+
 !ClassOrganizer methodsFor:'accessing'!
 
 addCategory:aCategory
@@ -319,5 +325,5 @@
 !ClassOrganizer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassOrganizer.st,v 1.16 2000-02-07 16:07:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassOrganizer.st,v 1.17 2000-03-21 12:56:59 cg Exp $'
 ! !