--- a/FileBasedSourceCodeManager.st	Fri Nov 18 15:58:26 2016 +0100
+++ b/FileBasedSourceCodeManager.st	Fri Nov 18 15:58:38 2016 +0100
@@ -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|