--- a/Class.st	Sun Sep 07 01:52:48 1997 +0200
+++ b/Class.st	Mon Sep 08 20:05:39 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.1.9 on 8-sep-1997 at 12:47:46 am'                  !
+
 ClassDescription subclass:#Class
 	instanceVariableNames:'name category classvars comment subclasses classFilename package
 		revision primitiveSpec environment signature hook'
@@ -3252,7 +3254,7 @@
         "/ If the component includes slashes, its the directory
         "/ otherwise the library
         "/ 
-        dirComponents := Filename components:(components at:1).     
+        dirComponents := Filename concreteClass components:(components at:1).     
 
         (dirComponents size > 1
         and:[(mgr := self sourceCodeManager) notNil
@@ -3320,7 +3322,7 @@
     "
 
     "Created: 4.11.1995 / 20:36:53 / cg"
-    "Modified: 17.3.1997 / 18:13:03 / cg"
+    "Modified: 8.9.1997 / 00:21:45 / cg"
 !
 
 revision
@@ -3818,5 +3820,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.289 1997-08-08 09:00:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.290 1997-09-08 18:05:32 cg Exp $'
 ! !