From 383c63021c2bf5c2bb09769c7f24976ee36d349e Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Wed, 22 Nov 2006 17:42:52 +0000
Subject: [PATCH] Fix hang when running Factor.app

---
 library/modules.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/library/modules.factor b/library/modules.factor
index 489acfe6a3..5d8178e2a3 100644
--- a/library/modules.factor
+++ b/library/modules.factor
@@ -109,7 +109,7 @@ M: module where* module-loc ;
     "load.factor" path+ resource-path exists? ;
 
 : (available-modules) ( path -- )
-    dup directory [ path+ ] map-with
+    dup resource-path directory [ path+ ] map-with
     dup [ module-dir? ] subset %
     [ (available-modules) ] each ;