--- a/SmallInt.st	Thu Nov 05 15:00:36 1998 +0100
+++ b/SmallInt.st	Thu Nov 05 16:12:17 1998 +0100
@@ -140,9 +140,12 @@
 
 canBeSubclassed
     "return true, if its allowed to create subclasses of the receiver.
-     Return nil here - since it is NOT possible for SmallInteger"
+     Return false here - since it is NOT possible for SmallInteger
+     (due to the tagged representation of SmallIntegers)"
 
     ^ false
+
+    "Modified: / 5.11.1998 / 16:11:27 / cg"
 !
 
 hasImmediateInstances
@@ -2855,5 +2858,5 @@
 !SmallInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/SmallInt.st,v 1.106 1998-10-31 11:35:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/SmallInt.st,v 1.107 1998-11-05 15:12:17 cg Exp $'
 ! !