--- a/Character.st	Tue Jun 03 11:56:17 1997 +0200
+++ b/Character.st	Tue Jun 03 12:02:52 1997 +0200
@@ -281,6 +281,15 @@
 
 !Character class methodsFor:'queries'!
 
+hasImmediateInstances
+    "return true if this class has immediate instances.
+     Redefined from Behavior"
+
+    ^ self == Character
+
+    "Created: 3.6.1997 / 12:01:52 / cg"
+!
+
 isBuiltInClass
     "return true if this class is known by the run-time-system.
      Here, true is returned for myself, false for subclasses."
@@ -991,5 +1000,5 @@
 !Character class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.42 1997-04-18 14:36:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.43 1997-06-03 10:02:10 cg Exp $'
 ! !

--- a/SmallInt.st	Tue Jun 03 11:56:17 1997 +0200
+++ b/SmallInt.st	Tue Jun 03 12:02:52 1997 +0200
@@ -142,6 +142,15 @@
     ^ false
 !
 
+hasImmediateInstances
+    "return true if this class has immediate instances.
+     Redefined from Behavior"
+
+    ^ true
+
+    "Created: 3.6.1997 / 12:01:26 / cg"
+!
+
 isBuiltInClass
     "return true if this class is known by the run-time-system.
      Here, true is returned."
@@ -2376,5 +2385,5 @@
 !SmallInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/SmallInt.st,v 1.76 1997-05-20 16:56:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/SmallInt.st,v 1.77 1997-06-03 10:02:30 cg Exp $'
 ! !

--- a/SmallInteger.st	Tue Jun 03 11:56:17 1997 +0200
+++ b/SmallInteger.st	Tue Jun 03 12:02:52 1997 +0200
@@ -142,6 +142,15 @@
     ^ false
 !
 
+hasImmediateInstances
+    "return true if this class has immediate instances.
+     Redefined from Behavior"
+
+    ^ true
+
+    "Created: 3.6.1997 / 12:01:26 / cg"
+!
+
 isBuiltInClass
     "return true if this class is known by the run-time-system.
      Here, true is returned."
@@ -2376,5 +2385,5 @@
 !SmallInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.76 1997-05-20 16:56:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.77 1997-06-03 10:02:30 cg Exp $'
 ! !

--- a/UndefObj.st	Tue Jun 03 11:56:17 1997 +0200
+++ b/UndefObj.st	Tue Jun 03 12:02:52 1997 +0200
@@ -114,6 +114,15 @@
      Return nil here - since it is NOT possible for UndefinedObject"
 
     ^ false
+!
+
+hasImmediateInstances
+    "return true if this class has immediate instances.
+     Redefined from Behavior"
+
+    ^ true
+
+    "Created: 3.6.1997 / 12:01:39 / cg"
 ! !
 
 !UndefinedObject methodsFor:'converting'!
@@ -437,6 +446,6 @@
 !UndefinedObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/UndefObj.st,v 1.30 1997-02-25 18:19:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/UndefObj.st,v 1.31 1997-06-03 10:02:52 cg Exp $'
 ! !
 UndefinedObject initialize!

--- a/UndefinedObject.st	Tue Jun 03 11:56:17 1997 +0200
+++ b/UndefinedObject.st	Tue Jun 03 12:02:52 1997 +0200
@@ -114,6 +114,15 @@
      Return nil here - since it is NOT possible for UndefinedObject"
 
     ^ false
+!
+
+hasImmediateInstances
+    "return true if this class has immediate instances.
+     Redefined from Behavior"
+
+    ^ true
+
+    "Created: 3.6.1997 / 12:01:39 / cg"
 ! !
 
 !UndefinedObject methodsFor:'converting'!
@@ -437,6 +446,6 @@
 !UndefinedObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.30 1997-02-25 18:19:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.31 1997-06-03 10:02:52 cg Exp $'
 ! !
 UndefinedObject initialize!