--- a/Class.st	Wed Aug 09 21:34:29 2006 +0200
+++ b/Class.st	Wed Aug 09 21:34:42 2006 +0200
@@ -533,9 +533,10 @@
     |owner|
 
     (owner := self owningClass) notNil ifTrue:[^ owner classFilename].
-    ^ classFilename
-
-    "Modified: 15.10.1996 / 18:53:21 / cg"
+    classFilename notNil ifTrue:[
+        ^ classFilename
+    ].
+    ^ (Smalltalk fileNameForClass:self) , '.st'
 !
 
 classPool
@@ -725,6 +726,15 @@
     ^ self nameSpace
 !
 
+getClassFilename
+    "return the name of the file from which the class was compiled."
+
+    |owner|
+
+    (owner := self owningClass) notNil ifTrue:[^ owner classFilename].
+    ^ classFilename
+!
+
 globalKeyForClassVar:aStringOrSymbol
     "this helps to encapsulate the (current) implementation of classVariables
      from the outside world. Currently, classvars are stored in
@@ -4958,5 +4968,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.494 2006-08-09 18:06:32 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.495 2006-08-09 19:34:42 fm Exp $'
 ! !