only init once.
authorClaus Gittinger <cg@exept.de>
Mon, 27 Oct 2003 22:27:07 +0100
changeset 7702 aa9eedcf00d2
parent 7701 81a948fdd026
child 7703 b0aa99db6575
only init once.
Filename.st
--- a/Filename.st	Mon Oct 27 21:09:18 2003 +0100
+++ b/Filename.st	Mon Oct 27 22:27:07 2003 +0100
@@ -216,7 +216,9 @@
 initialize
     "initialize for the OS we are running on"
 
-    self initializeConcreteClass
+    ConcreteClass isNil ifTrue:[
+        self initializeConcreteClass
+    ].
 
     "
      self initialize
@@ -4983,7 +4985,7 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.268 2003-10-27 10:08:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.269 2003-10-27 21:27:07 cg Exp $'
 ! !
 
 Filename initialize!