--- a/Class.st Mon Sep 25 21:14:55 2006 +0200
+++ b/Class.st Mon Sep 25 21:17:00 2006 +0200
@@ -3641,7 +3641,7 @@
].
(package := self package) notNil ifTrue:[
- "/ newest sceme ...
+ "/ newest scheme ...
packageDir := package copyReplaceAll:$: with:$/.
packageDir := Smalltalk getPackageFileName:packageDir.
packageDir notNil ifTrue:[
@@ -4630,5 +4630,5 @@
!Class class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.508 2006-09-19 20:01:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.509 2006-09-25 19:17:00 stefan Exp $'
! !