--- a/AbstractSourceCodeManager.st	Wed Sep 17 19:50:13 1997 +0200
+++ b/AbstractSourceCodeManager.st	Sat Sep 20 23:42:12 1997 +0200
@@ -10,7 +10,7 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.1.9 on 8-sep-1997 at 12:46:59 am'                  !
+'From Smalltalk/X, Version:3.1.10 on 19-sep-1997 at 10:57:54 pm'                !
 
 Object subclass:#AbstractSourceCodeManager
 	instanceVariableNames:''
@@ -622,9 +622,9 @@
         (newInfo includesKey:#directory) ifTrue:[
             (newInfo includesKey:#module) ifTrue:[
                 (newInfo includesKey:#module) ifTrue:[
-                    container := (newInfo at:#directory)
+                    container := (newInfo at:#module)
                                  , '/'
-                                 , (newInfo at:#module)
+                                 , (newInfo at:#directory)
                                  , '/'
                                  , classFileNameBase , '.st,v'.
                 ]
@@ -657,7 +657,7 @@
     ^ newInfo
 
     "Created: 25.11.1995 / 12:40:19 / cg"
-    "Modified: 18.4.1997 / 11:12:04 / cg"
+    "Modified: 19.9.1997 / 10:39:26 / cg"
 ! !
 
 !AbstractSourceCodeManager class methodsFor:'source code access'!
@@ -1029,7 +1029,7 @@
     ^ nil
 
     "
-     SourceCodeManager revisionInfoFromString:'$Revision: 1.80 $'
+     SourceCodeManager revisionInfoFromString:'$Revision: 1.81 $'
      SourceCodeManager revisionInfoFromString:(SourceCodeManager version)
     "
 
@@ -1365,6 +1365,6 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.80 1997-09-08 18:21:58 cg Exp $ [ce]'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.81 1997-09-20 21:41:31 cg Exp $ [ce]'
 ! !
 AbstractSourceCodeManager initialize!