--- a/UndefinedObject.st	Sat Jan 28 02:10:18 2017 +0100
+++ b/UndefinedObject.st	Sat Jan 28 02:10:35 2017 +0100
@@ -110,6 +110,7 @@
     "Modified: 3.1.1997 / 15:06:15 / cg"
 ! !
 
+
 !UndefinedObject class methodsFor:'queries'!
 
 canBeSubclassed
@@ -153,6 +154,8 @@
 ! !
 
 
+
+
 !UndefinedObject methodsFor:'converting'!
 
 asBoolean
@@ -296,6 +299,7 @@
     ^ 0
 ! !
 
+
 !UndefinedObject methodsFor:'subclass creation'!
 
 nilSubclass:action
@@ -319,7 +323,7 @@
         newClass setSuperclass:nil.
         newClass class setSuperclass:Class.
 
-        newClass methodDictionary size == 0 ifTrue:[
+        newClass hasMethods ifFalse:[
             Class addChangeRecordForClass:newClass.
 
             CreateMinimumProtocolInNewSubclassQuery query
@@ -728,6 +732,7 @@
     ^ aVisitor visitNilWith:aParameter
 ! !
 
+
 !UndefinedObject class methodsFor:'documentation'!
 
 version