--- a/Class.st	Wed Oct 22 20:56:52 2008 +0200
+++ b/Class.st	Wed Oct 22 21:00:30 2008 +0200
@@ -642,14 +642,15 @@
      this will be an absolute path. Oherwise, it will be a basename only.
      See classBaseFilename for a method which always returns the basename."
 
-    |owner info|
+    |owner info fn|
 
     (owner := self owningClass) notNil ifTrue:[^ owner classFilename].
     classFilename notNil ifTrue:[ ^ classFilename ].
 
     (info := self revisionInfo) notNil ifTrue:[
-        (info includesKey:#fileName) ifTrue:[
-            ^ info at:#fileName
+        fn := info fileName.
+        fn notNil ifTrue:[
+            ^ fn
         ].
     ].
     ^ (Smalltalk fileNameForClass:self), '.st'
@@ -658,7 +659,7 @@
      Math::ClosedInterval classFilename
     "
 
-    "Modified: / 12-10-2006 / 15:49:53 / cg"
+    "Modified: / 22-10-2008 / 20:58:21 / cg"
 !
 
 classPool
@@ -4883,5 +4884,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.533 2008-10-22 18:56:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.534 2008-10-22 19:00:30 cg Exp $'
 ! !