--- a/UndefinedObject.st	Wed Feb 28 15:46:18 1996 +0100
+++ b/UndefinedObject.st	Wed Feb 28 15:50:02 1996 +0100
@@ -173,7 +173,7 @@
     newClass notNil ifTrue:[
         newClass setSuperclass:nil.
 
-        newClass selectorArray isNil ifTrue:[
+        newClass selectorArray size == 0 ifTrue:[
         "
          copy over method objects from Object
         "
@@ -209,7 +209,7 @@
     ].
     ^ newClass
 
-    "Modified: 28.2.1996 / 15:45:19 / cg"
+    "Modified: 28.2.1996 / 15:47:41 / cg"
 !
 
 subclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s category:cat
@@ -283,5 +283,5 @@
 !UndefinedObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.20 1996-02-28 14:46:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.21 1996-02-28 14:50:02 cg Exp $'
 ! !