[Help-smalltalk] [PATCH] seaside: Correct WAGNUSmalltalkPlatform >> #filesIn:

[Holger Hans Peter Freyther]

File does not understand first. Follow the comment and
reject any file that starts with '.' by first stripping
the path and converting it to a String.

Manually tested using interactive GST session on
'/Users/ich'. The issue was reported by Mark Bratcher
on github.

2015-08-08  Holger Hans Peter Freyther  <address@hidden>

        * Seaside-GST.st: Correct >>#filesIn:.
---
 packages/seaside/core/ChangeLog      | 4 ++++
 packages/seaside/core/Seaside-GST.st | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/packages/seaside/core/ChangeLog b/packages/seaside/core/ChangeLog
index aef4adb..b4d1774 100644
--- a/packages/seaside/core/ChangeLog
+++ b/packages/seaside/core/ChangeLog
@@ -1,3 +1,7 @@
+2015-08-08  Holger Hans Peter Freyther  <address@hidden>
+
+       * Seaside-GST.st: Correct >>#filesIn:.
+
 2014-07-26  Holger Hans Peter Freyther  <address@hidden>
 
        * Seaside-Core.st: Remove WABrush class >> #new,
diff --git a/packages/seaside/core/Seaside-GST.st 
b/packages/seaside/core/Seaside-GST.st
index a2f5c79..ab41acf 100644
--- a/packages/seaside/core/Seaside-GST.st
+++ b/packages/seaside/core/Seaside-GST.st
@@ -550,7 +550,7 @@ Object subclass: WAGNUSmalltalkPlatform [
        | directory |
        directory := File name: aPathString.
        ^(directory files
-               reject: [ :each | each first = $. ])
+               reject: [ :each | each stripPath first = $. ])
                collect: [ :each | each asString ]
     ]
 
-- 
2.3.5