--- a/common/SCMAbstractCommitTask.st	Sat Nov 17 01:11:36 2012 +0000
+++ b/common/SCMAbstractCommitTask.st	Sat Nov 17 01:11:41 2012 +0000
@@ -131,7 +131,7 @@
             ].
             containers := paths
         ] ifTrue:[
-            paths size > 2 ifTrue:[
+            (paths isEmptyOrNil or:[paths size > 2]) ifTrue:[
                 commitLabel := self package name ? ''.
             ] ifFalse:[
                 commitLabel := paths asStringWith:', '
@@ -158,7 +158,7 @@
     "Created: / 11-04-2008 / 09:20:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 19-08-2009 / 12:27:44 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 14-03-2012 / 17:42:25 / jv"
-    "Modified: / 15-11-2012 / 16:53:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 16-11-2012 / 20:19:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 doCommit: msg files: containers

--- a/common/SCMAbstractPackageModel.st	Sat Nov 17 01:11:36 2012 +0000
+++ b/common/SCMAbstractPackageModel.st	Sat Nov 17 01:11:41 2012 +0000
@@ -29,10 +29,10 @@
 
 !SCMAbstractPackageModel class methodsFor:'instance creation'!
 
-name: package repository: repository
-    ^self new name: package repository: repository
+named: package 
+    self subclassResponsibility
 
-    "Created: / 14-11-2012 / 00:35:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 16-11-2012 / 19:52:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !SCMAbstractPackageModel methodsFor:'accessing'!

--- a/common/SCMAbstractPackageModelRegistry.st	Sat Nov 17 01:11:36 2012 +0000
+++ b/common/SCMAbstractPackageModelRegistry.st	Sat Nov 17 01:11:41 2012 +0000
@@ -79,6 +79,20 @@
     "Created: / 06-10-2012 / 21:51:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+flush: pattern
+    "Flushes all cached data packages matching given name."
+    | toFlush |
+    toFlush := OrderedCollection new.
+    packages valuesDo:[:package|
+        (package name matches: pattern) ifTrue:[toFlush add: package]].
+    toFlush do:[:package|
+        repositories removeKey: package repository path ifAbsent:[nil].
+        packages removeKey: package name
+    ].
+
+    "Created: / 16-11-2012 / 19:40:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 initialize
     "Invoked when a new instance is created."
 
@@ -100,5 +114,5 @@
 !
 
 version_SVN
-    ^ '$Id::                                                                                                                        $'
+    ^ '§Id::                                                                                                                        §'
 ! !