--- a/AbstractOperatingSystem.st	Mon Mar 04 13:34:14 2013 +0100
+++ b/AbstractOperatingSystem.st	Mon Mar 04 13:34:31 2013 +0100
@@ -184,6 +184,28 @@
 
 !AbstractOperatingSystem class methodsFor:'initialization'!
 
+getConcreteClass
+    |osType|
+
+    osType := self getSystemType.
+    osType = 'win32' ifTrue:[
+        ^ Win32OperatingSystem
+    ].
+    osType = 'osx' ifTrue:[
+        ^ OSXOperatingSystem
+    ].
+    osType = 'os2' ifTrue:[
+        ^ OS2OperatingSystem
+    ].
+    osType = 'macos' ifTrue:[
+        ^ MacOperatingSystem
+    ].
+    ((osType = 'VMS') or:[osType = 'openVMS']) ifTrue:[
+        ^ OpenVMSOperatingSystem
+    ].
+    ^ UnixOperatingSystem
+!
+
 initResources
     "/ allow for ResourcePack class to be missing (non-GUI smalltalks)
 
@@ -220,27 +242,7 @@
 !
 
 initializeConcreteClass
-    |osType cls|
-
-    osType := self getSystemType.
-    osType = 'win32' ifTrue:[
-	cls := Win32OperatingSystem
-    ] ifFalse:[
-	osType = 'os2' ifTrue:[
-	    cls := OS2OperatingSystem
-	] ifFalse:[
-	    osType = 'macos' ifTrue:[
-		cls := MacOperatingSystem
-	    ] ifFalse:[
-		((osType = 'VMS') or:[osType = 'openVMS']) ifTrue:[
-		    cls := OpenVMSOperatingSystem
-		] ifFalse:[
-		    cls := UnixOperatingSystem
-		]
-	    ]
-	]
-    ].
-    OperatingSystem := ConcreteClass := cls.
+    OperatingSystem := ConcreteClass := self getConcreteClass.
 ! !
 
 !AbstractOperatingSystem class methodsFor:'OS signal constants'!
@@ -7180,11 +7182,11 @@
 !AbstractOperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.228 2013-02-27 11:09:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.229 2013-03-04 12:34:31 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.228 2013-02-27 11:09:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.229 2013-03-04 12:34:31 cg Exp $'
 ! !