--- a/FileBasedSourceCodeManager.st	Wed Sep 07 16:04:00 2016 +0100
+++ b/FileBasedSourceCodeManager.st	Mon Nov 28 17:11:46 2016 +0000
@@ -237,7 +237,9 @@
     |targetDir newestRevision newRevision newFile packageMode filter outStream|
 
     targetDir := self packageDirectoryForModule:moduleDir package:packageDir.
-
+    targetDir exists ifFalse:[
+        targetDir recursiveMakeDirectory
+    ].
     (targetDir filesMatching:(classFileName,'_*')) do:[:eachVersionFile |
         |versionString|