SourceCodeManagerUtilities.st
changeset 2295 505293d1cfbd
parent 2294 7c31f351085c
child 2312 21fb10cf6914
--- a/SourceCodeManagerUtilities.st	Mon Nov 01 15:39:42 2010 +0100
+++ b/SourceCodeManagerUtilities.st	Mon Nov 01 21:06:06 2010 +0100
@@ -2075,8 +2075,12 @@
                 s := SourceCodeManager
                         streamForClass:nil fileName:stFile revision:stRevision 
                         directory:directory module:module cache:true.
-                repositoryVersion := ChangeSet fromStream:s.
-                s close.
+                s isNil ifTrue:[
+                    repositoryVersion := ChangeSet new.
+                ] ifFalse:[
+                    repositoryVersion := ChangeSet fromStream:s.
+                    s close.
+                ].
 
                 currentVersion := ChangeSet forExistingClass:eachClass.
                 diffs := repositoryVersion diffSetsAgainst:currentVersion .
@@ -2196,7 +2200,7 @@
     ].
     ^ diffSet
 
-    "Modified: / 07-08-2010 / 10:31:21 / cg"
+    "Modified: / 01-11-2010 / 21:02:52 / cg"
 !
 
 removeSourceContainerForClass:aClass
@@ -3203,9 +3207,9 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.206 2010-11-01 14:39:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.207 2010-11-01 20:06:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.206 2010-11-01 14:39:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.207 2010-11-01 20:06:06 cg Exp $'
 ! !