--- a/Smalltalk.st	Tue Oct 20 10:29:21 2009 +0200
+++ b/Smalltalk.st	Tue Oct 20 10:37:45 2009 +0200
@@ -5757,6 +5757,18 @@
 
     |cls nonMetaclass nm nameWithPrefix nameWithoutPrefix|
 
+"/  This was added as an extension of libsvn - should be no longer needed
+"/    compatQuery := Smalltalk classNamed: 'SVN::CompatModeQuery'.
+"/    (compatQuery notNil 
+"/      and:[compatQuery isLoaded  
+"/        and:[compatQuery query not]]) ifTrue:[
+"/            nm := aClassOrClassName isBehavior
+"/                ifTrue:[aClassOrClassName name]
+"/                ifFalse:[aClassOrClassName].
+"/            nm := nm copyReplaceAll:$: with:$_.
+"/            ^nm
+"/    ].
+
     aClassOrClassName isBehavior ifTrue:[
         cls := aClassOrClassName.
     ] ifFalse:[
@@ -7283,9 +7295,9 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.896 2009-10-20 08:29:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.897 2009-10-20 08:37:45 fm Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.896 2009-10-20 08:29:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.897 2009-10-20 08:37:45 fm Exp $'
 ! !