--- a/Class.st	Wed Oct 04 14:44:52 2006 +0200
+++ b/Class.st	Wed Oct 04 15:41:00 2006 +0200
@@ -530,13 +530,22 @@
 classFilename
     "return the name of the file from which the class was compiled."
 
-    |owner|
+    |owner info|
 
     (owner := self owningClass) notNil ifTrue:[^ owner classFilename].
-    classFilename notNil ifTrue:[
-        ^ classFilename
+    classFilename notNil ifTrue:[ ^ classFilename ].
+    (info := self revisionInfo) notNil ifTrue:[
+        (info includesKey:#fileName) ifTrue:[
+            ^ info at:#fileName
+        ].
     ].
     ^ (Smalltalk fileNameForClass:self) , '.st'
+
+    "
+     Math::ClosedInterval classFilename
+    "
+
+    "Modified: / 04-10-2006 / 15:40:36 / cg"
 !
 
 classPool
@@ -4630,5 +4639,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.509 2006-09-25 19:17:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.510 2006-10-04 13:41:00 cg Exp $'
 ! !