--- a/LargeInteger.st	Fri May 08 21:33:16 1998 +0200
+++ b/LargeInteger.st	Fri May 08 21:42:02 1998 +0200
@@ -234,23 +234,16 @@
     "create and return a new LargeInteger with value taken from
      the argument, aSmallInteger.
      Notice: 
-	this should be only used internally, since such small
+        this should be only used internally, since such small
         largeIntegers do not normally occur in the system.
-	(They are used by myself)
+        (They are used by myself)
      May change/be removed without notice."
 
-%{  /* NOCONTEXT */
-    if (__isSmallInteger(aSmallInteger)) {
-        INT v = __intVal(aSmallInteger);
-
-        RETURN(__MKLARGEINT(v));
-    }
-%}.
-
-    "/ should never be reached
     ^ self basicNew value:aSmallInteger
 
     "LargeInteger value:3689"
+
+    "Modified: / 8.5.1998 / 21:40:41 / cg"
 ! !
 
 !LargeInteger class methodsFor:'queries'!
@@ -2628,5 +2621,5 @@
 !LargeInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.68 1998-05-08 13:15:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.69 1998-05-08 19:42:02 cg Exp $'
 ! !