--- a/AbstractSourceCodeManager.st	Thu Sep 27 22:53:01 2012 +0200
+++ b/AbstractSourceCodeManager.st	Tue Oct 02 17:41:37 2012 +0200
@@ -2216,7 +2216,12 @@
     ].
 
     packageDir := self directoryFromSourceInfo:sourceInfo.
-    moduleDir := self moduleFromSourceInfo:sourceInfo.  "/ use the modules name as CVS module
+    packageDir isNil ifTrue:[
+        packageDir := aClass package asPackageId directory.
+        moduleDir := aClass package asPackageId module.
+    ] ifFalse:[
+        moduleDir := self moduleFromSourceInfo:sourceInfo.  "/ use the modules name as CVS module
+    ].
     classFileName := self containerFromSourceInfo:sourceInfo.
     ^ self 
         streamForClass:aClass
@@ -3774,11 +3779,11 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.299 2012-09-26 18:29:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.300 2012-10-02 15:41:37 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.299 2012-09-26 18:29:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.300 2012-10-02 15:41:37 cg Exp $'
 !
 
 version_SVN