diff --git a/src/library/ulm/ulmSYSTEM.Mod b/src/library/ulm/ulmSYSTEM.Mod
index ece334a7..3d00abab 100644
--- a/src/library/ulm/ulmSYSTEM.Mod
+++ b/src/library/ulm/ulmSYSTEM.Mod
@@ -8,7 +8,7 @@ TYPE pchar = POINTER TO ARRAY 1 OF CHAR;
       TYPE bytearray* = ARRAY SIZE(LONGINT) OF SYSTEM.BYTE; (* need this because voc does not convert implicitly LONGINT to ARRAY OF BYTE; -- noch *)
           pbytearray* = POINTER TO bytearray;
       TYPE longrealarray* = ARRAY SIZE(LONGREAL) OF SYSTEM.BYTE; (* need this because voc does not convert implicitly LONGINT to ARRAY OF BYTE; -- noch *)
-          plongrealarray* = POINTER TO bytearray;
+          plongrealarray* = POINTER TO longrealarray;
 
    PROCEDURE LongToByteArr* ( l : LONGINT; VAR bar : bytearray); (* noch *)
    VAR b : SYSTEM.BYTE;
@@ -23,24 +23,26 @@ TYPE pchar = POINTER TO ARRAY 1 OF CHAR;
 
    PROCEDURE LRealToByteArr* ( l : LONGREAL; VAR lar : longrealarray); (* noch *)
    VAR b : SYSTEM.BYTE;
+       (*adr: SYSTEM.ADDRESS;*)
        p : plongrealarray;
        i : LONGINT;
    BEGIN
       p := SYSTEM.VAL(plongrealarray, SYSTEM.ADR(l));
       FOR i := 0 TO SIZE(LONGREAL) -1 DO
-         b := p^[i]; lar[i] := b;
+         b := p^[i]; 
+		 lar[i] := b;
       END
+	  (*
+	  adr := SYSTEM.ADR(l);
+	  i := 0;
+	  REPEAT
+        SYSTEM.GET(adr + i, b);
+        lar[i] := b;
+	    INC(i)
+	  UNTIL i = SIZE(LONGREAL);*)
    END LRealToByteArr;
 
 
-(*
-        PROCEDURE -Write(adr, n: LONGINT): LONGINT
-	  "write(1/*stdout*/, adr, n)";
-
-	PROCEDURE -read(VAR ch: CHAR): LONGINT
-	  "read(0/*stdin*/, ch, 1)";
-*)
-
   PROCEDURE TAS*(VAR flag:BOOLEAN): BOOLEAN; (* added for compatibility with ulmSYSTEM module; noch *)
   VAR oldflag : BOOLEAN;
   BEGIN
diff --git a/src/library/ulm/ulmTypes.Mod b/src/library/ulm/ulmTypes.Mod
index 93bab9fc..0d09a4f5 100644
--- a/src/library/ulm/ulmTypes.Mod
+++ b/src/library/ulm/ulmTypes.Mod
@@ -55,13 +55,13 @@ MODULE ulmTypes;
       UntracedAddress*      = POINTER[1] TO UntracedAddressDesc; (*SYS.UNTRACEDADDRESS;*)
       UntracedAddressDesc* = RECORD[1] END;
 
-      Count*      = LONGINT;
+      Count*      = SYS.INT32;
       Size*       = Count;
       Byte*       = SYS.BYTE;
       IntAddress* = LONGINT;
-      Int8*       = SHORTINT;
-      Int16*      = INTEGER; (* No real 16 bit integer type *)
-      Int32*      = INTEGER;
+      Int8*       = SYS.INT8;
+      Int16*      = SYS.INT16;
+      Int32*      = SYS.INT32;
       Real32*     = REAL;
       Real64*     = LONGREAL;