--- a/Class.st	Wed Sep 23 21:59:59 2009 +0200
+++ b/Class.st	Thu Sep 24 10:42:42 2009 +0200
@@ -700,7 +700,6 @@
     "Created: / 12-10-2006 / 15:49:32 / cg"
 !
 
-
 classFilename
     "return the name of the file from which the class was compiled.
      If the class was loaded via an explicit load (i.e. from the fileBrowser),
@@ -710,6 +709,12 @@
     |owner info fn|
 
     (owner := self owningClass) notNil ifTrue:[^ owner classFilename].
+
+    (SVN::CompatModeQuery notNil 
+    and:[SVN::CompatModeQuery isLoaded 
+    and:[(SVN::CompatModeQuery query ? true) not]])
+        ifTrue:[^SVN::Repository containerNameForClass: self].
+
     classFilename notNil ifTrue:[ ^ classFilename ].
 
     (info := self revisionInfo) notNil ifTrue:[
@@ -721,10 +726,12 @@
     ^ (Smalltalk fileNameForClass:self), '.st'
 
     "
-     Math::ClosedInterval classFilename
+     SVN::Repository classFilename   
+     Array classFilename 
     "
 
     "Modified: / 22-10-2008 / 20:58:21 / cg"
+    "Modified: / 13-08-2009 / 16:07:07 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
 classPool
@@ -4809,6 +4816,17 @@
     "Created: 1.4.1997 / 15:46:01 / stefan"
 ! !
 
+!Class::ClassAttributes class methodsFor:'documentation'!
+
+documentation
+"
+    Instances hold additional attributes of a class.
+    Currently, these are primitive definitions and sharedPools information.
+    As these are seldom needed, they are only present as object in some classes
+    thus saving us from mostly empty additional slots in the class object itself for most classes
+"
+! !
+
 !Class::ClassAttributes methodsFor:'accessing'!
 
 primitiveDefinitions
@@ -4958,6 +4976,14 @@
     class := aClass
 ! !
 
+!Class::SimulatedClassPool::SimulatedVariableBinding class methodsFor:'documentation'!
+
+documentation
+"
+    Instances are returned from the simulated classPool for VW compatibility.
+"
+! !
+
 !Class::SimulatedClassPool::SimulatedVariableBinding methodsFor:'queries'!
 
 isVariableBinding
@@ -4969,5 +4995,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.547 2009-09-23 18:04:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.548 2009-09-24 08:42:42 cg Exp $'
 ! !