--- a/SUnitNameResolver.st	Wed Jul 09 23:00:04 2014 +0100
+++ b/SUnitNameResolver.st	Mon Jul 14 21:58:21 2014 +0100
@@ -32,6 +32,28 @@
 
 notificationObject
 	^Notification
+!
+
+weakIdentityDictionaryClass
+    "Return an EphemeronDictionary (if available) or Weak(Identity)Dictionary class"
+    
+    #(
+     #EphemeronDictionary       "VW"
+     #WeakIdentityDictionary    "St/X"
+     #WeakDictionary            "VW"
+     )
+            do:[:name | 
+                | class |
+
+                class := self classNamed:name.
+                class notNil ifTrue:[
+                    ^ class.
+                ].
+            ].
+    self error:'No weak-like dictionary class found!!'.
+
+    "Created: / 14-07-2014 / 09:46:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 14-07-2014 / 21:01:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !SUnitNameResolver class methodsFor:'documentation'!
@@ -43,3 +65,4 @@
 version_SVN
     ^ '§Id: SUnitNameResolver.st 204 2010-09-11 15:21:51Z vranyj1 §'
 ! !
+