Fixed reading raw huge integers

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8527 8c9fc860-2736-0410-a75d-ab315db34111

source/Streams.Mod

@@ -684,7 +684,7 @@ TYPE
 		BEGIN
 			n := 0;  y := 0;  ch := Get();
 			WHILE ch >= 80X DO INC( y, LSH( HUGEINT( ORD( ch ) ) - 128, n ) );  INC( n, 7 );  ch := Get() END;
-			x := ASH( LSH( LONGINT( ORD( ch ) ), 57 ), n - 57 ) + y
+			x := ASH( LSH( HUGEINT( ORD( ch ) ), 57 ), n - 57 ) + y
 		END RawHNum;
 
 	(** Read a size in a compressed format. *)