gistfile1.diff

--- lualibs-dir.lua.orig	2010-12-31 21:09:07.000000000 +0100
+++ lualibs-dir.lua	2010-12-31 21:12:11.000000000 +0100
@@ -26,15 +26,15 @@
 local walkdir    = lfs.dir
 
 local function glob_pattern(path,patt,recurse,action)
-    local ok, scanner
+    local ok, scanner, dir_obj
     if path == "/" then
-        ok, scanner = xpcall(function() return walkdir(path..".") end, function() end) -- kepler safe
+        ok, scanner, dir_obj = xpcall(function() return walkdir(path..".") end, function() end) -- kepler safe
     else
-        ok, scanner = xpcall(function() return walkdir(path)      end, function() end) -- kepler safe
+        ok, scanner, dir_obj = xpcall(function() return walkdir(path)      end, function() end) -- kepler safe
     end
     if ok and type(scanner) == "function" then
         if not find(path,"/$") then path = path .. '/' end
-        for name in scanner do
+        for name in scanner, dir_obj do
             local full = path .. name
             local mode = attributes(full,'mode')
             if mode == 'file' then