--- a/SVN__CommitTask.st	Sun Feb 12 00:36:41 2012 +0100
+++ b/SVN__CommitTask.st	Mon Feb 13 18:15:07 2012 +0100
@@ -188,7 +188,7 @@
 
 doPrepareWorkingCopy
 
-    self package notNil ifTrue:[
+    self isPackageCommit ifTrue:[
         self do:[
             self workingCopy ensureIsValid.
             self doFileOutAll
@@ -197,7 +197,39 @@
 
     "Created: / 11-04-2008 / 09:19:27 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 17-08-2009 / 18:28:34 / Jan Vrany <vranyj1@fel.cvut.cz>"
-    "Modified: / 09-02-2012 / 10:30:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 13-02-2012 / 16:38:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+doSanityChecks
+    "Perform some sanity checks on the package
+     (or individual classes and/or methods). Returns
+     a collection (possibly empty) of found issues."
+
+    self isPackageCommit ifFalse:[ ^ self ].
+    OperatingSystem getLoginName ~= 'jv' ifTrue:[^self].
+
+    ^ProjectChecker new 
+        package: self package;
+        classes: classes;
+        methods: extensionMethods;
+        check;
+        problems
+
+    "Created: / 11-04-2008 / 09:19:27 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 17-08-2009 / 18:28:34 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Created: / 13-02-2012 / 16:36:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!CommitTask methodsFor:'testing'!
+
+isPackageCommit
+    "Returns true iff this task is for a package
+     (or part of it). False if this is ad-hoc commit task -
+    for example ad-hoc commit from a file browser"
+
+    ^ self package notNil
+
+    "Modified (comment): / 13-02-2012 / 16:38:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !CommitTask class methodsFor:'documentation'!