SourceCodeManagerUtilities.st
changeset 2835 ec791b8d6a71
parent 2830 f5204449764a
child 2836 91e9be94d80b
--- 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 $'
 ! !