--- a/Method.st	Tue Nov 07 13:58:59 2006 +0100
+++ b/Method.st	Tue Nov 07 14:00:21 2006 +0100
@@ -2453,7 +2453,7 @@
      extract the className from it and try that class first.
     "
     (fn := self sourceFilename) notNil ifTrue:[
-        clsName := fn asFilename withoutSuffix name.
+        clsName := fn asFilename nameWithoutSuffix.
         clsName := clsName asSymbolIfInterned.
         clsName notNil ifTrue:[
             cls := Smalltalk at:clsName ifAbsent:nil.
@@ -2533,7 +2533,7 @@
      m who
     "
 
-    "Modified: / 23.2.2000 / 11:32:49 / cg"
+    "Modified: / 07-11-2006 / 13:58:50 / cg"
 !
 
 wrapper
@@ -2736,7 +2736,7 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.300 2006-10-12 18:34:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.301 2006-11-07 13:00:21 cg Exp $'
 ! !
 
 Method initialize!