--- a/Metaclass.st	Wed Aug 04 09:58:10 1999 +0200
+++ b/Metaclass.st	Wed Aug 04 16:10:22 1999 +0200
@@ -567,18 +567,15 @@
     (newName isSymbol not
     or:[newName size == 0]) ifTrue:[
         self error:'invalid class name (must be a nonEmpty symbol)'.
-        ^ nil
     ].
     newName first isLetter ifFalse:[
         self error:'invalid class name (must start with a letter)'.
-        ^ nil
     ].
 
     "check for invalid subclassing of UndefinedObject and SmallInteger"
     aClass notNil ifTrue:[
         aClass canBeSubclassed ifFalse:[
             self error:('it is not possible to subclass ' , aClass name).
-            ^ nil
         ]
     ].
 
@@ -1482,7 +1479,7 @@
     |newClass|
 
     myClass notNil ifTrue:[
-        ^ self error:'Each metaclass may only have one instance'.
+        self error:'Each metaclass may only have one instance'.
     ].
     newClass := self basicNew.
     newClass setSuperclass:Object
@@ -2018,6 +2015,6 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.149 1999-08-02 16:07:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.150 1999-08-04 14:08:21 cg Exp $'
 ! !
 Metaclass initialize!