diff --git a/core/io/pathnames/pathnames.factor b/core/io/pathnames/pathnames.factor
index 5a9c647973..b307128efb 100644
--- a/core/io/pathnames/pathnames.factor
+++ b/core/io/pathnames/pathnames.factor
@@ -103,7 +103,7 @@ PRIVATE>
         ] }
         [
             [ trim-tail-separators ]
-            [ trim-head-separators ] bi* path-separator glue
+            [ trim-head-separators ] bi* "/" glue
         ]
     } cond ;
 
diff --git a/core/vocabs/loader/loader.factor b/core/vocabs/loader/loader.factor
index 0f2e3f7178..2c0f67641d 100644
--- a/core/vocabs/loader/loader.factor
+++ b/core/vocabs/loader/loader.factor
@@ -35,9 +35,7 @@ M: string vocab-path ( string -- path/f )
 PRIVATE>
 
 : vocab-dir ( vocab -- dir )
-    vocab-name
-    os windows? { { CHAR: . CHAR: \\ } } { { CHAR: . CHAR: / } } ?
-    substitute ;
+    vocab-name { { CHAR: . CHAR: / } } substitute ;
 
 : vocab-dir+ ( vocab str/f -- path )
     [ vocab-name "." split ] dip