--- a/BrowserView.st	Tue Nov 07 13:59:38 2006 +0100
+++ b/BrowserView.st	Tue Nov 07 14:00:03 2006 +0100
@@ -3118,7 +3118,7 @@
 
                                              lcName := nm asLowercase.
                                              ((f := lcName asFilename) hasSuffix:'st') ifTrue:[
-                                                nm asFilename withoutSuffix name
+                                                nm asFilename nameWithoutSuffix
                                              ] ifFalse:[
                                                 nm
                                              ]
@@ -3194,7 +3194,7 @@
             withBindings:bindings
     ]
 
-    "Modified: / 29-08-2006 / 14:55:24 / cg"
+    "Modified: / 07-11-2006 / 13:58:29 / cg"
 !
 
 classCategoryRepositoryHistory
@@ -14564,7 +14564,7 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.808 2006-10-23 08:48:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.809 2006-11-07 13:00:03 cg Exp $'
 ! !
 
 BrowserView initialize!