--- a/LargeInteger.st	Wed Oct 28 03:18:59 2015 +0100
+++ b/LargeInteger.st	Wed Oct 28 03:19:25 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
@@ -2334,9 +2336,8 @@
 !
 
 lessFromInteger:anInteger
-    "sent when an integer does not know how to compare to the receiver, a largeInt"
-
-    |otherSign|
+    "sent when an integer does not know how to compare to the receiver, a largeInt.
+     Return true if anInteger < self"
 
     "/
     "/ here, we depend on the fact, that largeinteger
@@ -2344,14 +2345,12 @@
     "/ therefore, a largeInt in the smallInt range is not allowed (possible)
     "/
     (anInteger class == SmallInteger) ifTrue:[
-	otherSign := anInteger sign.
-
-	(sign > 0) ifTrue:[
-	    "I am positive"
-	    ^ true "aNumber is <= 0"
-	].
-	"I am negative"
-	^ false
+        (sign > 0) ifTrue:[
+            "I am positive - any largeInteger is larger than any smallInteger"
+            ^ true "anInteger is <= 0"
+        ].
+        "I am negative - any negative largeInteger is smaller than any smallInteger"
+        ^ false
     ].
     ^ super lessFromInteger:anInteger
 !
@@ -5499,7 +5498,7 @@
 !
 
 negative
-    "return true, if the receiver is < 0"
+    "return true, if the receiver is less than zero"
 
 %{
 #ifdef __SCHTEAM__
@@ -5518,7 +5517,7 @@
 !
 
 positive
-    "return true, if the receiver is >= 0"
+    "return true, if the receiver is greater or equal to zero (not negative)"
 
 %{
 #ifdef __SCHTEAM__
@@ -5540,7 +5539,7 @@
 !
 
 strictlyPositive
-    "return true, if the receiver is > 0"
+    "return true, if the receiver is greater than zero"
 
 %{
 #ifdef __SCHTEAM__