diff -r ac5c14aaa198 -r ac9d34eeeaaa Class.st
--- a/Class.st	Fri Oct 06 15:50:47 2006 +0200
+++ b/Class.st	Fri Oct 06 15:51:04 2006 +0200
@@ -527,12 +527,15 @@
 !
 
 classFilename
-    "return the name of the file from which the class was compiled."
+    "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),
+     this will be an absolute path. Oherwise, it will be a basename only."
 
     |owner info|
 
     (owner := self owningClass) notNil ifTrue:[^ owner classFilename].
     classFilename notNil ifTrue:[ ^ classFilename ].
+
     (info := self revisionInfo) notNil ifTrue:[
         (info includesKey:#fileName) ifTrue:[
             ^ info at:#fileName
@@ -544,7 +547,7 @@
      Math::ClosedInterval classFilename
     "
 
-    "Modified: / 04-10-2006 / 15:40:36 / cg"
+    "Modified: / 06-10-2006 / 13:31:54 / cg"
 !
 
 classPool
@@ -735,12 +738,16 @@
 !
 
 getClassFilename
-    "return the name of the file from which the class was compiled."
+    "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),
+     this will be an absolute path. Oherwise, it will be a basename only."
 
     |owner|
 
-    (owner := self owningClass) notNil ifTrue:[^ owner classFilename].
+    (owner := self owningClass) notNil ifTrue:[^ owner getClassFilename].
     ^ classFilename
+
+    "Modified: / 06-10-2006 / 13:32:01 / cg"
 !
 
 getPackage
@@ -1211,13 +1218,14 @@
 
 setClassFilename:aFilename
     "set the classes filename.
-     This is a dangerous (low level) operation, since the
-     comment and primitiveSpecs may no longer be accessable, if a wrong filename
-     is set here."
+     This is a dangerous (low level) operation, 
+     since the comment and primitiveSpecs may no longer be accessable, 
+     if a wrong filename is set here."
 
     classFilename := aFilename
 
-    "Modified: 8.9.1995 / 14:16:48 / claus"
+    "Modified: / 08-09-1995 / 14:16:48 / claus"
+    "Modified: / 06-10-2006 / 13:32:52 / cg"
 !
 
 setClassVariableString:aString
@@ -1286,6 +1294,8 @@
 
     self setSharedPools:aStringOrCollection.
     self addChangeRecordForClass:self.
+
+    "Modified: / 06-10-2006 / 13:35:14 / cg"
 !
 
 source
@@ -1293,7 +1303,7 @@
 
     |code aStream tmpFilename|
 
-" this is too slow for big classes ...
+" this is too slow for big classes (due to the emphasis stored)...
     code := String new:1000.
     aStream := WriteStream on:code.
     self fileOutOn:aStream
@@ -1321,6 +1331,8 @@
         aStream close.
     ].
     ^ code
+
+    "Modified: / 06-10-2006 / 13:34:18 / cg"
 !
 
 sourceCodeManager
@@ -4654,5 +4666,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.512 2006-10-06 09:49:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.513 2006-10-06 13:51:04 cg Exp $'
 ! !