--- a/ResourcePack.st	Sat Jul 03 19:12:03 2004 +0200
+++ b/ResourcePack.st	Tue Jul 06 14:32:18 2004 +0200
@@ -993,7 +993,7 @@
                                             value isBehavior ifTrue:[
                                                 pack := self class for:value.
                                                 pack notNil ifTrue:[
-                                                    self declareAllFrom:pack.
+                                                    self addAll:pack.
                                                 ]
                                             ]
                                         ] ifFalse:[
@@ -1072,7 +1072,7 @@
 !ResourcePack class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.98 2004-04-07 13:00:22 werner Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.99 2004-07-06 12:32:18 stefan Exp $'
 ! !
 
 ResourcePack initialize!