--- a/Smalltalk.st	Fri Oct 06 15:50:17 2006 +0200
+++ b/Smalltalk.st	Fri Oct 06 15:50:47 2006 +0200
@@ -591,6 +591,7 @@
     Stdout reOpen. Stderr reOpen. Stdin reOpen.
 ! !
 
+
 !Smalltalk class methodsFor:'Compatibility-Squeak'!
 
 beep
@@ -4673,7 +4674,7 @@
         newClass notNil ifTrue:[
             fn notNil ifTrue:[
                 newClass getClassFilename isNil ifTrue:[
-                    newClass setClassFilename:(fn asFilename baseName)
+                    newClass setClassFilename:fn
                 ].
             ].
 
@@ -4685,8 +4686,8 @@
 
     ^ newClass
 
-    "Created: / 9.1.1998 / 14:40:32 / cg"
-    "Modified: / 5.6.1999 / 14:53:01 / cg"
+    "Created: / 09-01-1998 / 14:40:32 / cg"
+    "Modified: / 06-10-2006 / 13:25:50 / cg"
 !
 
 fileInClassLibrary:aClassLibraryName
@@ -6886,5 +6887,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.758 2006-10-06 13:03:49 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.759 2006-10-06 13:50:47 cg Exp $'
 ! !