--- a/ResourcePack.st	Mon Jul 23 21:19:31 2007 +0200
+++ b/ResourcePack.st	Tue Aug 21 21:18:21 2007 +0200
@@ -707,6 +707,7 @@
           or aKey ends with a ':', then lookup aKey without ':' and append ':' to the result.
           or aKey ends with a '=', then lookup aKey without '=' and append '=' to the result.
           or aKey ends with a '.', then lookup aKey without '.' and append '.' to the result.
+          or aKey ends with a ',', then lookup aKey without ',' and append ',' to the result.
           or aKey ends with a ' ', then lookup aKey without ' '.
           or aKey ends with a ' ...', then lookup aKey without ' ...' and append '...' to the result.
           or aKey ends with a '...', then lookup aKey without '...' and append '...' to the result.
@@ -754,7 +755,7 @@
             val notNil ifTrue:[^ val , '...'].
         ].
 
-        (':=.?!!' includes:aKey last) ifTrue:[
+        (':=.?!!,' includes:aKey last) ifTrue:[
             aKey size > 2 ifTrue:[
                 rest := aKey last.
                 usedKey := aKey copyWithoutLast:1.
@@ -797,7 +798,7 @@
     ^ nil.
 
     "Created: / 18-09-2006 / 17:33:27 / cg"
-    "Modified: / 09-11-2006 / 13:19:26 / cg"
+    "Modified: / 21-08-2007 / 21:18:12 / cg"
 !
 
 name:aKey default:default
@@ -1283,7 +1284,7 @@
 !ResourcePack class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.122 2006-11-09 12:24:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.123 2007-08-21 19:18:21 cg Exp $'
 ! !
 
 ResourcePack initialize!