--- a/SourceCodeManagerUtilities.st	Sat Mar 01 21:10:41 2014 +0100
+++ b/SourceCodeManagerUtilities.st	Sun Mar 02 02:40:53 2014 +0100
@@ -2192,6 +2192,9 @@
 "/            ]
 "/        ]
     ].
+    directory isEmptyOrNil ifTrue:[
+        directory := LastPackage.
+    ].
 
     fileName isNil ifTrue:[
         fileName := (Smalltalk fileNameForClass:aClass) , '.st'.
@@ -2257,6 +2260,9 @@
                 module := rslt at:#module.
                 directory := rslt at:#package.
                 fileName := rslt at:#fileName.
+                (module isEmptyOrNil or:[directory isEmptyOrNil or:[fileName isEmptyOrNil]]) ifTrue:[
+                    ^ false
+                ].
             ]
         ].
         (fileName endsWith:',v') ifTrue:[
@@ -3948,10 +3954,10 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.296 2014-01-23 16:11:38 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.297 2014-03-02 01:40:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.296 2014-01-23 16:11:38 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.297 2014-03-02 01:40:53 cg Exp $'
 ! !