--- a/AbstractSourceCodeManager.st	Wed Oct 11 14:20:48 2006 +0200
+++ b/AbstractSourceCodeManager.st	Wed Oct 11 14:51:14 2006 +0200
@@ -1071,10 +1071,10 @@
     "/
     "/ the filename I'd expect from its name ...
     "/
-    classFileNameBase := (Smalltalk fileNameForClass:cls owningClassOrYourself).
+    classFileNameBase := cls classFilename.
 
     (newInfo includesKey:#fileName) ifFalse:[
-        newInfo at:#fileName put:(classFileNameBase , '.st')
+        newInfo at:#fileName put:classFileNameBase
     ].
 
     "/ guess on the container
@@ -1086,13 +1086,13 @@
                          , '/'
                          , (newInfo at:#directory)
                          , '/'
-                         , classFileNameBase , '.st,v'.
+                         , classFileNameBase , ',v'.
         ].
         pathInRepository := (newInfo at:#module)
                      , '/'
                      , (newInfo at:#directory)
                      , '/'
-                     , classFileNameBase , '.st'.
+                     , classFileNameBase.
         newInfo at:#pathInRepository put:pathInRepository.
     ].
 
@@ -1104,26 +1104,26 @@
     revInfo notNil ifTrue:[
         actualSourceFileName := revInfo at:#fileName ifAbsent:nil.
         actualSourceFileName notNil ifTrue:[
-            expectedFileName := classFileNameBase , '.st'.
+            expectedFileName := classFileNameBase.
             actualSourceFileName ~= expectedFileName ifTrue:[
                 ('SourceCodeManager [warning]: source of class ' , cls name , ' in ' , actualSourceFileName , ';') infoPrintCR.
                 ('SourceCodeManager [info]: (expected: ' , expectedFileName , '); renamed or missing abbreviation ?') infoPrintCR.
                 ('SourceCodeManager [info]: This may fail to autoload later if left unchanged.') infoPrintCR.
                 newInfo at:#expectedFileName put:expectedFileName.
                 newInfo at:#renamed put:true.
-                classFileNameBase := actualSourceFileName copyWithoutLast:3
+                classFileNameBase := actualSourceFileName
             ]
         ]
     ].
 
-    newInfo at:#classFileNameBase put:classFileNameBase.
+    newInfo at:#classFileNameBase put:(classFileNameBase asFilename withoutSuffix) name.
     ^ newInfo
 
     "
      self sourceInfoOfClass:Array
     "
 
-    "Modified: / 06-10-2006 / 16:17:24 / cg"
+    "Modified: / 11-10-2006 / 14:50:08 / cg"
 ! !
 
 !AbstractSourceCodeManager class methodsFor:'source code access'!
@@ -2379,7 +2379,7 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.196 2006-10-06 14:23:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.197 2006-10-11 12:51:14 cg Exp $'
 ! !
 
 AbstractSourceCodeManager initialize!