Index: src/library.c
===================================================================
--- src/library.c	(revision 37094)
+++ src/library.c	(working copy)
@@ -830,8 +830,8 @@
         pos_sl = CHARSET_RINDEX(interp, in, slash2, len);
     pos_dot = CHARSET_RINDEX(interp, in, dot, len);
 
-    /* XXX directory parrot-0.4.1 or such */
-    if (pos_dot != -1 && isdigit((unsigned char)((char*)in->strstart)[pos_dot+1]))
+    /* ignore dot in directory name */
+    if (pos_dot != -1 && pos_dot < pos_sl)
         pos_dot = -1;
 
     ++pos_dot;