--- a/AbstractSourceCodeManager.st	Thu Mar 31 18:06:57 2016 +0200
+++ b/AbstractSourceCodeManager.st	Fri Apr 01 00:54:08 2016 +0200
@@ -1606,9 +1606,11 @@
 
     (newInfo includesKey:#pathInRepository) ifFalse:[
         (fileNameFromVersion := newInfo at:#fileName ifAbsent:nil) notNil ifTrue:[
-            (repairedPath := cls projectDirectory asFilename construct:fileNameFromVersion) exists ifTrue:[
-                Transcript showCR:('Oldstyle, broken or invalid version-info in class: ',cls name allBold,'. Please check').
-                newInfo at:#pathInRepository put:repairedPath pathName.
+            cls projectDirectory notNil ifTrue:[
+                (repairedPath := cls projectDirectory asFilename construct:fileNameFromVersion) exists ifTrue:[
+                    Transcript showCR:('Oldstyle, broken or invalid version-info in class: ',cls name allBold,'. Please check').
+                    newInfo at:#pathInRepository put:repairedPath pathName.
+                ].
             ].
         ].
     ].