--- a/LargeInteger.st	Fri Jul 16 11:39:45 1993 +0200
+++ b/LargeInteger.st	Mon Oct 04 11:32:33 1993 +0100
@@ -60,12 +60,21 @@
 
 valueLow:lowBits hi:hiBits
     "create and return a new LargeInteger with value taken from
-     the two 16-bit args"
+     the two 16-bit signed args. This method is called from the runtime
+     system, when an integer result has to be converted to a Large."
 
     hiBits < 0 ifTrue:[
         ^ ((self value:hiBits negated) * 16r10000 + lowBits) negated
     ].
     ^ (self value:hiBits) * 16r10000 + lowBits
+!
+
+unsignedValueLow:lowBits hi:hiBits
+    "create and return a new LargeInteger with value taken from
+     the two 16-bit unsigned args. This method is called from the runtime
+     system, when an integer result has to be converted to a Large."
+
+    ^ (self value:hiBits) * 16r10000 + lowBits
 ! !