Check the result of the super class initializer and assign it to self.

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/steptalk/trunk@36407 72102866-910b-0410-8b05-ffd578937521

ChangeLog

@@ -1,3 +1,9 @@
+2013-03-23  Wolfgang Lux  <wlux@uni-muenster.de>
+
+	* Tools/STEnvironmentProcess.m (initWithDescriptionName:):
+	Check the result of the super class initializer and assign it to
+	self.
+
 2013-03-23  Wolfgang Lux  <wolfgang.lux@gmail.com>
 
 	* Frameworks/StepTalk/STActor.m (-init, -initWithEnvironment:,

Tools/STEnvironmentProcess.m

@@ -6,11 +6,11 @@
 
 @implementation STEnvironmentProcess
 - initWithDescriptionName:(NSString *)descName
+{
+    if ((self = [super init]) != nil)
     {
         STEnvironmentDescription *desc;
 
-    self = [super init];
-
         if (descName)
         {
             NSLog(@"Creating environment from description '%@'", descName);
@@ -25,7 +25,7 @@
         /* FIXME: use some configurable mechanism */
         [environment setObject:environment forName:@"Environment"];
         [environment loadModule:@"SimpleTranscript"];
-
+    }
     return self;
 }
 - (void)dealloc