--- a/SourceCodeManagerUtilities.st Wed Jun 13 13:03:04 2012 +0200
+++ b/SourceCodeManagerUtilities.st Wed Jun 20 10:34:55 2012 +0200
@@ -3485,7 +3485,10 @@
mgr notNil ifTrue:[
aStream nextPutLine:'**** Repository information ****'; cr.
- module := info2 at:#module ifAbsent:nil.
+ module := nil.
+ info2 notNil ifTrue:[
+ module := info2 at:#module ifAbsent:nil.
+ ].
module notNil ifTrue:[
aStream nextPutLine:(' Repository URL ......: ' ,
((mgr repositoryNameForPackage:aClass package) ifNil:[mgr repositoryName , ' (default)'])).
@@ -3511,7 +3514,7 @@
]
"Modified: / 06-10-2006 / 13:25:22 / cg"
- "Modified: / 12-10-2011 / 18:06:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 20-06-2012 / 10:34:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
tagClass:aClass as:tag
@@ -4394,9 +4397,9 @@
!SourceCodeManagerUtilities class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.250 2012-06-02 09:01:13 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.251 2012-06-20 08:34:55 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.250 2012-06-02 09:01:13 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.251 2012-06-20 08:34:55 vrany Exp $'
! !