--- a/SourceCodeManagerUtilities.st	Wed Mar 27 20:30:59 2013 +0100
+++ b/SourceCodeManagerUtilities.st	Wed Mar 27 20:36:57 2013 +0100
@@ -2140,10 +2140,9 @@
 
     className := aClass name.
 
-    aClass isProjectDefinition ifTrue:[
-        "/ no way - their package is already known and fix.
-        module := aClass module.
-        directory := aClass moduleDirectory.
+    aClass package ~= PackageId noProjectID ifTrue:[
+        module := aClass package asPackageId module.
+        directory := aClass package asPackageId directory.
     ] ifFalse:[
         "/
         "/ defaults, if nothing at all is known
@@ -2153,7 +2152,7 @@
         ].
         (directory := LastPackage) isNil ifTrue:[
             directory := 'private'.
-        ].
+        ]. 
     ].
 
     "/
@@ -3891,10 +3890,10 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.267 2013-03-27 16:39:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.268 2013-03-27 19:36:57 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.267 2013-03-27 16:39:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.268 2013-03-27 19:36:57 cg Exp $'
 ! !