--- l-io.lua	2010-08-18 17:37:25.000000000 +0200
+++ /home/laokoon/versuche/lua/dok/examples/io/l-io.lua	2010-08-30 14:01:02.000000000 +0200
@@ -186,7 +186,7 @@
     end
 end
 
-function io.readnumber(f,n,m)
+local function readnumber(f,n,m)
     if m then
         f:seek("set",n)
         n = m
@@ -201,7 +201,7 @@
         return 256^3 * a + 256^2 * b + 256*c + d
     elseif n == 8 then
         local a, b = readnumber(f,4), readnumber(f,4)
-        return 256 * b + c
+        return 256 * a + b
     elseif n == 12 then
         local a, b, c = readnumber(f,4), readnumber(f,4), readnumber(f,4)
         return 256^2 * a + 256 * b + c
@@ -210,6 +210,8 @@
     end
 end
 
+io.readnumber = readnumber
+
 function io.readstring(f,n,m)
     if m then
         f:seek("set",n)