--- a/ResourcePack.st	Wed Jan 11 16:44:57 2006 +0100
+++ b/ResourcePack.st	Fri Jan 13 19:32:53 2006 +0100
@@ -468,6 +468,12 @@
                 val notNil ifTrue:[^ val , rest].
             ].
 
+            ((aKey startsWith:'(') and:[(aKey endsWith:')')]) ifTrue:[
+                usedKey := aKey copyFrom:2 to:(aKey size - 1).
+
+                val := self at:usedKey ifAbsent:nil.        "/ recursion
+                val notNil ifTrue:[^ '(' , val , ')'].
+            ].
             (aKey endsWith:' ') ifTrue:[
                 usedKey := aKey withoutSeparators.
 
@@ -1098,7 +1104,7 @@
 !ResourcePack class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.103 2005-09-30 16:34:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.104 2006-01-13 18:32:53 cg Exp $'
 ! !
 
 ResourcePack initialize!