--- a/ClassDescription.st	Thu Jul 11 13:38:52 2002 +0200
+++ b/ClassDescription.st	Thu Jul 11 16:20:28 2002 +0200
@@ -1339,10 +1339,20 @@
 compile: aString classified: protocol attributes: attributes
     "compile some method-code"
 
+    |mthd|
+
+    mthd := self compile: aString classified: protocol.
     attributes notEmpty ifTrue:[
-        self error:'non-empty attributes not yet supported' mayProceed:true.
+        attributes keysAndValuesDo:[:aK :aV |
+            aK = 'package' ifTrue:[
+                "/ mthd package:aK
+            ] ifFalse:[
+                self error:(aK , '-attribute not yet supported') mayProceed:true.
+            ].
+        ].
     ].
-    ^ self compile: aString classified: protocol
+
+    ^ mthd.
 !
 
 compiler
@@ -3964,6 +3974,6 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.134 2002-05-14 12:11:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.135 2002-07-11 14:20:28 cg Exp $'
 ! !
 ClassDescription initialize!